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REVISTA INDEPENDIENTE PARA USUARIOS DE ORDENADORES AMSTRAD 


PERSONALI R LOS 
1, , DE 
UEG S ES "Il CON 
ESPíA DE GliRcos 


Esta aplicación permite encontrar 
y modificar a nuestro gusto, 
permanentemente, los 
ráficos de 
todos los iuegos comerciales cuya 
protección lo permita. 
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HEXAM 
Probamos 
un ensamblador 
que no ocupa 
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DISEÑO ASISTIDO 
EN EL 
AMSTRAD PC: 
LOS SECRETOS 
DE GEM DRA' 



Una cinta gratis 
por la eompra 
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Derechos exclusivos 
de la revista 
COMPUTING with 
the AMSTRAD 


Representante para Argentina. Chile, 
Urugua) y Paraguay, Cia, Americana de 
Ediciones S,R,L, Sud América 1.532, TeL. 
21 2464, 1209 BUENOS AIRES (Argentina), 
AMSTRAD Semanal no se hace 
necesariamente solidaria de las opiniones 
venidds por sus colaboradores en los artículos 
firmados, Resen"ados todos los derechos 


Los _jfMg" p«" ",¿.".,Jm, ,,¡ """ " """Iro {mÚ, p«"'" "" 
carácter marcadamente gráfico; es decir, el arma usada por los programadores para 
atraer al público es conjuntar la acción con la estética, AMSTRAD Semanal ha 
pensado muchas veceJ lo interesante que sería podtr personalizar los juegos, esto eJ, 
inspeccionar el programa, encontrar los gráficos, dar/es la forma que más nos gustase _ 
volver a ,£trabar el juego así modificado en cinta/disco, La próxima v(
 que jugáramos 
a él, los cambios SI! reflejarían como por arte de magia, En este sentido, hemos escrito 
un programa, llamado "Espía de Gráficos", que permite hacer esto mismo, con el 
auxilio de otras herramientas ya publicadas en nuestra revista, Seguro que se van a 
divertir mucho jugando con este programa, 
Resulta obvio decir que el "Espía" JJ está escrito en Código Máquina (no quedaba 
otra elección), y que para diseñar/o se ha tenido que usar un ensamblador, Estas 
herramientas son un tanto desconocidas en España, hay muy pocas comercializadas 
Para los interesados en el tema, probarrws a fondo en este número uno llamado 
"HexamJJ que, aparte de ser muy potente, presenta la particularidad de estar en un 
cartucho de ROM, esto es, se conecta al bus de expansión del ordeTlildor) no gasta un 
byte de memoria, Las ventajas de este planteamiento son innumerables, nosotros las 
decimos todas, 
Por último, ocupa un lugar de honor esta semana la prueba de un gran programa 
de diseño para el Amstrad PC, llamado (,Gem DrawJJ Podríamos decir mucho de su 
f{}£ilidad de uso, de los magnificos dibujos que crea y de lo peifectos que salen en la 
impresora, pero lo m£jor es remitir/es al artículo en cuestión, que lo dudia 
deltmidamente. 
Los 'gugones" encontrauin un oliginal y adictivo programa para los CPCs, el 
"LaserbaseJJ, que les transportará a la velocidad de la luz al cruento escenario de la 
batalla espacial más decisiva del milenio, 
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CAD-CAM. 
La historia 
continúa 


Pepper Pro 1280 es un nuevo 
sistema gráfico para AutoCAD 
que actúa como el eje principal 
de estaciones de trabajo CAD, 
Está distribuido en España 
por Softronic S, A" la misma 
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empresa que importa para 
España AutoCAD, La nueva 
taljeta, con un alto nivel de 
rt:solución y 32 bits, puede 
convertir a un PC en una 
estación de trabajo MIPS. 
Actúa de una forma 
instantánea, nítida y precisa. 
Para conseguir esta rapidez, el 
zoom, el encuadre y el snoIl se 
hacen por medio del hardware, 
Todo esto, unido a su gran 
n:wlución (1.280 x 1.024), 
compatibilidad (emula a los 
estándar CGA, MDA y PGC), 
colores simultáneos (16 ó 256) y 
la gran variedad de su paleta de 
colores hacen de él uno de los 
sistemas gráficos más 
compatibles que existen, 
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transiciones magnéticas de un 
diskette a otro sin mirar nada 
en particular. Es decir, el 
sistema de copia más poderoso 
que existe actualmente, ya que 
no trabaja con las limitaciones 
qut" sit"mprt" producen la 
circuitería estándar de los 
discos, Reproduce el YH por 
100, sin necesidad de especificar 
ningún parárnctro, aunque 
también se puede optar por uno 
dt" eIlos, 
Su mstalación y manejo D 
muy sencillo. Funciona a través 
dt" rnenús, Una dt. las opciones 
que incorpora es l'ramition 
Editur con la que se puede ver t'l 
fÓrmato físico del disco original, 
editar las pistas y visualizar los 
datos en Hexadecimal o ASCII, 
Si todo esto es cierto, lo que 
parece claro es que este copión 
va a tener un gran éxito, 
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Backup para el disco duro de Amstrad 


opcional, se 
pueden . 
compartir '. 
 
sus 
 
utilidades , 
entre 
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Copión para PC 


First, s, A" ha comenzado 
a distribuir en España la tarjeta 
Cupy II PC Opcíon Board, de la 
casa estadounidense Central 
Point Software. Tiene un 
programa especial, que forma 
parte de la nueva generación de 
Transition Copier, que copia las 
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T ekdata ha sacado un nuevo 
periférico, Ilamado Ex-Streamer, 
con el que se pueden hacer 
copias del disco duro del 
Amstrad PC 1512 o del de 
cualquier otro compatible IBM, 
Su capacidad es de 22 
Mbytes y, por 499 libras, 
incluye una tarjeta de control 
que se introduce en la unidad 
central de! ordenador con e! 
software y cables necesarios 
para su funcionamiento, 
Además, con una tarjeta 
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vanos 
ordenadores 
parecidos, 
Parecidas 
características se pueden aplicar 
al Backup para disco duro de 
IBM y compatibles que acaba 
de sacar la casa Teac Corporation, 
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First se sube al carro 
de los compatibles 


DunroJ!j PC-XT 64U Turbo es 
e! nombre nuevo compatible 
que va a distribuir en España 
First, S, A, 
Lleva un microprocesador 
8088-2 de lnte!, 640 K de 
memoria RAM, que se puc"'den 
ampliar a 3 Mbytes, y un 
ventilador para evitar los 
problemas de 
sobrecalentamiento que 
pudiesen surgir. Se puede elegir 
entre versiones de una o dos 
unidades de disco de 5 1/4" Y 
versiones de dico duro de 10, 20 
Y 33 Mbytes, todas ellas con 
teclado en castellano, Su 
capacidad es de 80/40 x 25 
caracteres en modo texto, y 
640 x 200 en modo gráfico con 
salida paralela (centronic) para 
nnpresora, 
Según First, este compatible 
trab
ja un 70 por 100 más 
rápido de lo normal en los PCs, 
debido al modo turbo de 
actuación, Su precio es de 
ll:'¡,tJOO pts" en configuración 
básica: 1 floppy, 
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Head over Heels. 
Tra; las huellas de Batman 


Los pcw son los Amstrad 
más abandonados en cuanto a 
juegos. Por eso, siempre es de 
agradecer cualquier novedad en 
este sentido, 
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y novedad es el juego del que 
vamos a hablar: Head over Heel!j, 
Este programa, distribuido en 
España por Erbe Software, es lo 
último que ha salido al mercado 
para el PCW, aunque también 



u eva hoja de cálculo para Ams trad PC 
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Q;:alc es la nueva hoja de 
eálculo para el Amstrad PC 
1512 y todos los compatibles 
IBM que tengan 256 K, ya 
que, aunque también funciona 
en los de 128 K, al programa le 
queda poca memoria libre para 
poder trabajar bien, Lo acaba 
de sacar a la venta la empresa 
Proteus Compting, con un 
precio dos veces más barato que 
cualquiera de las existentes con 
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sus mismas características, 
Este programa puede 
satisfacer las necesidades de 
todo tipo de usuarios, desde 
principiantes hasta 
profesionales, debido a su 
capacidad de 256 columnas por 
9.999 líneas y un contexto 
sensible que ayuda a los noveles 
a introducirse en las diferentes 
pantallas, 
Incorpora 25 funciones 
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existe una verslon para los 
CPCs, Está en la misma línea 
que Batman, pero, según todos 
los indicios, le supera en casi 
todos los aspectos, 
Es un juego de acción y 
estrategia con gráficos 
tridimensionales, Pero, de todas 
estas características, hablaremos 
con mayor detenimiento en 
nuestras páginas de juegos, 
Todavía no podemos adelantar 
su precIo, 
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aritméticas. tres lógicas (If. 
Then y Else) y cinco de 
tratamiento de listas numéricas 
(Sum, Maximum, Minimum, 
Average y Count), 
Dentro de poco estára 
disponible una versión para usar 
en la red NovelL 
Si desean más información, 
pueden escribir a Craig Thatcher. 
2 Iffley Road, Hammersmith, 
London W6 OPA, 
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Tipos de datos 


en 


Paseal 


Uno de los más fuertes rivales del Basic en el mundo de los 
lenguaJes de programación es) sin duda) el Pascal. La criatura de 
Niklaus Wi"rth reivindica en su favor poseer una organización y una 
estructura impecables. 


e uando uno está diseñando un programa a 
medida, bien para un hipotético cliente o para 
uno mismo, observa lleno de admiración que le 
faltan datos, es decir, que si se trata de manejar 
apuntes contables, por ejemplo, se ve obligado a 
tratarlos de la misma forma que si estuviera 
manipulando frases, palabras o números. 
Casualmente, al menos de cara al 
programador, todo lo que un ordenador tiene son 
eso, caracteres y números, al menos en Basic. 
Ahí está el quid de la cuestión: el asunto cambia 
completamente cuando se trata de otros 
lenguajes, como el Pascal. 
Cualquier lenguaje de programación que 
pretenda hacer la vida del sufrido operador un 
poco más fácil, debe poseer dos cosas: estructura 
y posibilidad de definir tipos de datos más y más 
complejos partiendo de unos pocos que 
podríamos llamar ladrillos elementales. 
La primera condición no es que el Pascal 
simplemente la cumpla, sino que es el lenguaje 
estructurado. Estas palabras nacieron con él. 
La segunda condición es algo más esotérica, 
pero creemos que su necesidad quedará patente 
con el programa ejemplo de este artículo. 
Imagine que usted desee mecanizar la gestión 
de una pequeña biblioteca informática personal. 
Por razones obvias, los datos que se necesitan 
manipular no son ni palabras ni números, sino 
programas. 
Desgraciadamente, este tipo de dato no existe, 
y así, a bote pronto, su ordenador no sabrá de qué 
le habla. 
Si el programa que mantiene nuestra biblioteca 
informática hubiera que escribirlo en Basic 
estándar (Locomotive Basic, Mallard Basic o 
IBM Basic), no habría forma de pasar de aquí. 
Usted tendría que usar lo que el ordenador tiene, 
y arreglárselas como Dios le dé a entender, 
probablemente definiendo montones de matrices 
para el nombre del programa, su precio, la 
versión, etc. 
Si se quiere, este enfoque tiene la ventaja de la 
sencillez, pero el gran inconveniente de la poca 
claridad y el verse obligado a tratar algo de 
forma antinatural. Si manejamos información 
acerca de programas, lo lógico es tratarla como 
un todo, a pesar de que dicha información se 
6 AMSTRAD Semanal 
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subdivida en categorías más pequeñas. 
Afortunadamente, lenguajes más modernos que 
Basic, como Pascal y C, tienen resuelto este 
problema. Veamos cómo se hace en Pascal. Se 
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supone que el lector posee unos mínimos 
conocimientos del mismo. 
Un programa en Pascal posee una estructura 
absolutamente rígida: primero se declara el 
nombre del programa; luego, las constantes, los 
tipos de datos, las variables, los procedimientos y 
funciones, y, por último, el cuerpo principal de la 
aplicación. Una vez anotado este detalle, vamos a 
plantearnos seriamente el problema de gestionar 
nuestra biblioteca de software. 
La entidad que nos vamos a ver obligados a 
manipular vamos a llamarla programa, Y, para 
que signifique algo en concreto, analicemos de 
qué otras informaciones se va a componer el 
objeto programa. 
En nuestra opinión, sobre él debemos conocer 
lo siguiente: 
título, 
- tipo, 
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LENGUAJES 


versión, 
si
tema operativo, 
precIO. 
Una vez definida nuestra información, el 
próximo paso es dar forma a cada uno de los 
campos, de tal modo que el ordenador sea capaz 
de entenderlos. Veamos. Evidentemente, el título 
tiene que ser una cadena de caracteres, una 
palabra. Por ello, y haciendo uso de un tipo de 
dato predefinido en Pascal, podemos declararlo 
como un array de caracteres de, digamos, 10 de 
longitud. La cosa sería, en principio, así: 
titulo : array[ 1. .10] of char; 
La definición es correcta, pero se le pueden 
poner varias objeciones de estilo. En primer 
lugar, la declaración pertenece a una variable, es 
decir, la sintaxis correcta en Pascal es: 
var titulo: array[l..lO] of char;(l) 
Cada vez que una función o procedimiento 
emplee una variable de ese tipo, habría que 
volver a declararla exactamente igual. Además 
del tedio que eso supone, no todos los 
compiladores lo aceptarían. Algunos sólo admiten 
como parámetros variables que pertenecen a un 
determinado tipo de datos, Y aquí está la clave 
Si declaramos nuestro título de la siguiente 
manera: 


i" 
" 
t 
\0\' 

. 


type 
titulo _ c = array[ 1. .10] of char;(2) 
podremos cscribir acto seguido: 
var titulo : titulo _ c; 
y el programa ya sabe de qué le estamos 
hablando. Acabamos de inventarnos una 
estructura de datos nueva, correspondiente a una 
matriz de 10 caracteres de longitud, que será 
tratada exactamente igual que los tipos 
predefinidos carácter o número, Y, además, 
podemos declarar cuantas variables o estructuras 
queramos, por compl
jas que sean, pertenecientes 
al nuevo tipo. 
Esta manera de ver las cosas resuelve una serie 
de problemas graves. 
Imagínese que usted ha escrito cuarenta 
funciones que manejan a título, tal y como lo ha 
declarado en (l), Siga imaginando: de pronto 
descubre que la matriz de 1 a lOes demasiado 
corta, tiene que ser hasta 20, Bien, pues tcndría 
que cambiar una por una todas las declaraciones, 
Si se ha seguido la práctica normal cn Pascal de 
compilar por trozos, tendría que corregir el 
código fuente y recompilar de nuevo. 
Sin embargo, tal y como está declarado en (2), 
dentro de la sección type del programa bastaría 
con modificar eso, poniendo simplemente: 


I :: 
,
 ' 


type 
titulo_c = array[1..20] of char;(3) 
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De este modo, todo el trabajo que hizo con las 
funciones anteriormente quedaría intocado. Ésa 
es la gran ventaja de definir los propios tipos de 
datos. 
Todavía se puede perfeccionar un poco más la 
declaración. En efecto, las funciones que 
manipulen a título probablemente tendrán que 
llevar la cuenta de los caracteres que hay metidos 
en cada variable. Por ejemplo, si se desea 
imprimirlo, hay que hacerla carácter a carácter 
hasta que lleguemos al finaL Si nos pasamos, 
podría ocurrir un desastre. Tendrá que hacer 
comprobaciones constantes del tipo: 
if longitud> 20 then,.. 


Bien, pero ¿qué ocurre si le interesa de nuevo 
cambiar la longitud de título a 30? Pues que otra 
vez tendrá que corregir y recompilar a lo largo 
de todo el programa, Para evitarlo, la solución es 
definir la longitud máxima como una constante, 
así: 


const 
MAXIMO _ e = 30; 


y 


type 
título_c = array[1..MAXIMO_C] of char; 
En caso de cambios, sólo habrá que modificar 


el valor de la constante, y el resto del código del 
programa permanecerá inalterado, es decir. 
siempre podremos escribir: 
if longitud> MAXIMO _e then... 
Por último, téngase presente que estamos 
hablando, al fin y al cabo, de una cadena 
alfanumérica, las variables "$" del Basic, 
extremadamente común, por lo que algunos 
compiladores de Pascal tienen el tipo string 
(cadena) ya predefinido. ¿Algún problema? Para 
nosotros, ninguno. Bastaría con escribir: 


o 
ti 
d 
1; 
'- 


( 
( 


type 
titulo _ c = string[MAXIMO _ C]; 
y nuestro programa seguiría funcionando tan 
ancho. De esta forma, gracias a las declaraciones 
de tipo, la portabilidad (y rentabilidad) de 
nuestro código fuente aumenta muchísimo, 
Todo lo dicho anteriormente puede aplicarse a 
lo que comentemos a partir de ahora. Vamos a 
estudiar con algo de detenimiento otro campo 
interesante: el tipo de programa. 
Pascal tiene; para estos casos, una facilidad 
única, que se conoce como tiPo enumerado, Fíjese 
en la declaración: 


type 
clase -programa = (GESTION, JUEGO, 
UTILIDAD); 


program type_demo (input, output); 
const 
MAXIMO_C = 20;{LONGITUD MAXIMA DE LAS CADENAS} 
MAXIMO_E = 100;{NUMERO MAXIMO DE PROGRAMAS EN LA LlBRERIA} 
type 
clase_programa = (GESTION, JUEGO, UTILIDAD, OTRO); 
{TIPOS DE PROGRAMAS PREVISTOS,ES POSIBLE ANADIR OTROS} 



 


_-
o 


titulo_c = array[1..MAXIMO_C] of char; 
{TIPO DE DATOS PARA EL TITULO DE LOS PROGRAMAS} 


comandos = array[1 ..1] of char; 
{TIPO DE DATOS PARA LAS ORDENES QUE ACEPTARA EL PROGRAMA} 
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programa = record 
titulo: titulo_c; 
tipo: clase_programa; 
version, dos: real; 
precio : integer; 
usado: boolean; 
end; 
{RECORD QUE ALMACENA LA INFORMACION RELEVANTE DE CADA PROGRAMA} 
biblio = array[1..MAXIMO_EJ of programa; 
{MATRIZ CON ESPACIO PARA 100 PROGRAMAS} 
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contador = O..MAXIMO_E; 
{TIPO DE DATOS PARA LAS VARIABLES 'CaNTADORAS'} 


var 
libreria : biblio; 
orden: comandos; 
lleno: boolean; 
{FLAG QUE INDICA SI QUEDA ESPACIO PARA MAS PROGRAMAS} 


- 


l 
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Así de claro y fácil. Le estamos diciendo al 
ordenador que éste es un tipo de dato que puede 
tomar esos tres valores, con lo que la legibilidad 
de nuestro programa aumenta en gran medida. 
Si, una vez más, se nos ocurre que nm; hemos 
dejado en el tintero la posibilidad de añadir una 
clase genérica de varios a nuestro tipo de 
programas, nada más fácil: 
type 
clase-programa = (GESTION, JUEGO, 
UTILIDAD, OTRO); 


yeso es todo. Las variables posteriormente 
declaradas como pertenecientes a este tipo de 
datos incorporarán la modificación. Sin más 
cambios, 
El resto de los campos de nuestro tipo de 
programa son más de sentido común. Así, en 
versión y sistema operativo, habrá que teclear 
cosas como 2.5 y 3.0. La solución más evidente 
es declarados de tipo real, uno de los predefinidos 
en Pascal. En cuanto al precio, no parece 
probable que sea 3.250,25 pesetas, por lo que 
declarado como integer debiera bastar. 
A estas alturas, ya tenemos clara toda la 
información relevante del tipo de datos 
programa, pero todavía no la hemos organizado 
en un todo coherente. Esto se hace mediante la 
sentencia Pascal récord: 


LENGUAJES 


type 
programa = record 
titulo : titulo c; 
tipo : clase -programa; 
version, dos : real; 
precio : integer; 
usado : boolean; 
end; 
Ya está. Hemus creado una entidad llamada 
programa, con unas ciertas características, que 
vamos a poder manipular de una vez, como si 
fuera un número o un carácter. El lector 
observará que aparece un campo más, usado, de 
tipo boolean, es decir, cierto o falso. Su utilidad se 
verá más tarde, y su existencia se debe a la 
lógica elegida para gestionar nuestra biblioteca. 
Bueno, hasta ahora sólo tenemos definido un 
programa. ¿ Cómo nos las arreglaríamos para 
poder trabajar con 100, por ejemplo? 
De nuevo recurrimos a otro tipo de datos: 


type 
biblio = array[1..MAXIMO_E] of 
programa; 


- 


procedure lee_programa (i : contador); 
var 
eleccion : 1..4; 
begin {lee_programa} 
writeln('TITULO: '); 
readln(libreria[i], titulo); 
writeln('VERSION: '); 
readln(libreria[i], version); 
writeln('SISTEMA OPERATIVO: '); 
readln(libreria[i].dos) ; 
writeln('PRECIO: '); 
readln(libreria[i] ,precio), 
repeat 
writeln(TIPO DE PROGRAMA: '); 
writeln('GESTION(1) JUEGO(2) UTILlDAD(3) OTRO(4)'); 
readln( eleccion); 
until (eleccion >= 1) and (eleccion <= 4); 
case eleccion of 
1 : 
libreria[i].tipo := GESTION; 
2: 
libreria[i],tipo := JUEGO; 
3 : 
libreria[i],tipo := UTILIDAD; 
4: 
libreria[i].tipo := OTRO; 
end; {case} 
libreria[i],usado := TRUE; 
end; {leeJ}rograma} 


procedure nuevo; 
var 
i : contador; 


begin {nuevo} 
writeln('NUEVO'); 
i:= 1; 
while (Iibreria[i].usado) and (i < MAXIMO_E) do 
i:= i + 1; 
if (i = MAXIMO_E) then 
lleno := TRUE 
el se 
lee_programa(i) ; 
end; {nuevo} 
procedure eliminar; 
var 
i : contador; 
begin {eliminar} 
writeln('ELlMINAR QUE:'); 
readln(i); 
if (i < 1) or (i > MAXIMO_E) then 
writeln('INEXISTENTE') 
else 
libreria[i].usado := FALSE; 
end; {eliminar} 


procedure lista_programa (i : contador); 
begin {lista_programa} 
writel n(libreria[i]. titulo); 
writeln(libreria[i]. version); 
writel n(libreria[i] ,dos); 
writel n(libreria[i] ,precio); 
case libreria[i].tipo of 
GESTION : 
writeln('GESTION') ; 
JUEGO: 
writeln('JUEGO'); 


- 
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en donde MAXIMO _E es una constante que 
vale 100, puesta por las mismas razones de 
flexibilidad que comentamos anteriormente. 
¿Qué hemos hecho realmente? Pues se ha 
creado una matriz de MAXIMO _ E elementos, 
pero cada uno de ellos es del tipo programa; es 
decir, tenemos espacio reservado para 
MAXIMO _ E programas, cada uno con la 
estructura definida para él. Nuestra biblioteca 
informática personal ya está implementada. 
Quedan, antes de ver los procedimientos que la 
gestionan, sólo dos tipos de datos más, 
dependientes de la lógica elegida, Nos vamos a 
mover tecleando comandos de una sola letra; por 
ello, definimos: 
type 
comandos = array[1..1] of char; 
y, como previsiblemente habrá que usar variables 
cantadoras: 
type 
contador = O..MAXIMO E; 
ya que nunca vamos a contar más allá del 
número de elementos del array de programas. 
Ya podemos declarar las variables globales: 


var 
libreria: biblio; 
orden: comandos; 
lleno: boolean; 
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l 


UTILIDAD: 
writeln('UTILlDAD'); 
OTRO: 
writeln('OTRO'); 
end; {case} 
writeln; 
end; {listaJ>rograma} 


\ 


procedure listar; 
var 
i : contador; 
begin {listar} 
for i := 1 to MAXIMO_E do 
begin 
if libreria[i] usado then 
lista_programa(i) ; 
end; 
end; {listar} 
I 
procedure buscar; 
var 
i : contador; 
begin {buscar} 
writeln('BUSCAR QUE:'); 
readln(i); 
if (i < 1) or (i > MAXIMO_E) then 
writeln('FUERA DE RANGO') 
else if libreria[i].usado then 
listaJ>rograma(i) 
el se 
writeln('IN EXISTENTE'); 
end; {buscar} 


'.... 

:, :¿
 
1f:
 


Es todo lo que necesitamos para poner en 
marcha el programa. Vamos a echar un ligero 
vistazo al mismo, empezando por la parte 
principal, el manager, 


begin {PROGRAMA PRINCIPAL} 
lleno: = FALSE; 
write('QUE HAGO AHORA?:'); 
readln( orden); 
while(orden [1] < > 's') and (not lleno) do 
begin 
procesa( orden); 
write('QUE HAGO AHORA?: '); 
readln( orden); 
end; 
if lleno then 
writeln('NO TENGO SITIO PARA MAS 
PROGRAMAS'); 
writeln('FIN DEL PROGRAMA'); 
end. {PROGRAMA PRINCIPAL} 


La lógica no puede ser más sencilla: la variable 
lleno nos va a decir cuándo no hay sitio para 
guardar más programas, por lo que la 
inicializamos a F ALSE. A continuación, se 
imprime un mensaje y se lee la orden, Si es "s" 
o si no queda sitio para más programas, el 
manager termina imprimiendo el mensaje 
adecuado. De lo contrario, se procesa la orden 
con el procedimiento: 


procedure procesa (orden: comandos); 
begin {procesa} 
case orden[1] of 
'b' : 
buscar; 


Inl: 


nuevo; 


'e' 


eliminar; 
'1' : 
listar; 
else 
writeln('ERROR:COMANDO DESCONOCIDO'); 
end; {case} 
end; {procesa} 


begin {PROGRAMA PRINCIPAL} 
showtext; 
lleno := FALSE; 
write('QUE HAGO AHORA?: '); 
readln(orden); 
while (orden[1] <> 's') and (not lleno) do 
begin 
procesa(orden); 
write('QUE HAGO AHORA?: '); 
readln(orden); 
end; 
if lleno then 
writeln('NO TENGO SITIO PARA MAS PROGRAMAS'); 
writeln('FIN DEL PROGRAMA'); 
end. {PROGRAMA PRINCIPAL} 



procedure proQesa (orden comandos); 
begin{procesa 
case orden[ 1] of 
'b': 
buscar; 
'n': 


nuevo; 
'e': 
eliminar; 
']': 
listar; 
else 
writeln('ERROR: COMANDO 
DESCONOCIDO'); 
end; {case} 
end; {procesa} 
Este procedimiento también está claro. Bifurca 
a otro que se encarga de cada comando o da un 
mensaje de error si éste es desconocido. 
Veamos cómo funciona el procedimiento 
buscar: 
procedure buscar; 
var 
i: contador; 
begin {buscar} 
writeln('BUSCAR QUE: '); 
readln(i); 
if (i < 1) or (i> MAXIMO_E) then 
writeln ('FUERA DE RANGO') 
else if librería[ i]. usado then 
lista -programa(i) 
else 
writeln(' INEXISTENTE '); 
end; {buscar} 
Aquí aparece por primera vez el misterioso 
campo libreriafiJ. usado, que puede ser TRUE 
(verdad) o FALSE (¿mentira?). Este apartado lo 
inicializa el procedimiento nuevo, y si es verdad, 
indica que en ese elemento del array librería 
existe un programa archivado. El método no es 
muy sutil, pero es muy rápido para buscar y 
listar, por ejemplo: 
procedure listar; 
var 
i: contador; 
begin {listar} 
for i: = 1 to MAXIMO E do 
begin 
if librena[i].usado then 
lista -programa(i); 
end; 
end; {listar} 
Como se puede observar, sólo se listan los 
elementos del array que tienen un programa 
archivado. La idea deviene en particularmente 
útil en el caso de eliminar un programa del 
archivo: 
procedure eliminar; 
var 
i: contador; 


LENGUAJES 


begin {eliminar} 
writeln('ELIMINAR QUÉ:'); 
readln(i); 
if (i < 1) or (i> MAXIMO-E) then 
writeln ('INEXISTENTE') 
else 
libreria[i].usado: = FALSE; 
end; {eliminar} 
Recurrimos al truco de poner en ese campo un 
F ALSE, por lo que el procedimiento nuevo lo 
encuentra disponible, sin perder tiempo en borrar 
campo a campo el programa desechado: 
procedure nuevo; 
var 
i: contador; 
begin {nuevo} 
writeln('NUEVO'); 
i: = 1; 
while (librería[ i]. usado) and 
(i< MAXIMO_E) do 
i:=i+l; 
if (i = MAXIMO_E) then 
lleno: = TRUE 
else 
lee -programa(i); 
end; {nuevo} 
Obsérvese cómo el bucle while recorre el array 
hasta que encuentra un elemento libre, o hasta 
que llega al final del mismo. En este último caso, 
la variable global lleno se hace cierta, con lo que 
el programa principal se detendrá. 


Aclaraciones finales 


El propósito de este artículo gira alrededor de 
un primer contacto con las estructuras de datos 
en Pascal; por ello no se ha puesto mayor énfasis 
en la elegancia y la eficiencia de los 
procedimientos que gestionan la biblioteca, Aun 
así, funcionan bien, y para una cantidad de 
programas entre 100 y 1.000, aproximadamente, 
van muy rápidos. 
Por otro lado, el lector se preguntará por qué 
no se han incluido un par de proeedures para 
salvar y cargar los datos de los programas. La 
razón es simple: portabilidad. Existen diferencias 
entre los compiladores a la hora de tratar este 
tema. Por ello se deja como ejercicio al lector. En 
cualquier caso, el presente programa se escribió 
en Turbo Pascal, por lo que funcionará en el 
Amstrad PC y en los CPC y PCW, ya que 
existe una versión de este compilador para 
CP/M. Los que tengan el Hisoft Paseal también 
podrán teclear y ejecutar el programa, usuarios 
del CPC 464 incluidos. 
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Hexam: 
que no 


un ensamblador 
gasta 


Por: Víctor Prieto 


. 
memorIa 


IOdos los compiladores tienen el mzsmo problema: son rápidos, ificaces, 
etc., pero consumen memoria; ni más ni menos. Algún aguerrido lector 
se preguntará «(Pero es un fallo consumir memoria?, si precisamente los 
ordenadores están para eso». En ordenadores con 512 K de RAM se 
puede introducir un compilador sin que se note la falta de ésta, pero si 
hablamos de un ordenador con 64 K de las cuales 22 están ocupadas 
por la copia del firmware en la RAM, el problema es preocupante. 


De todas formas el usuario normal no tiene 
que afrontar estos problemas de memoria. 
Cualquier persona que quiera trabajar con un 
determinado lenguaje en el Amstrad, tiene de 
sobra con las veinte y pico K que le deja libre el 
compilador. 
Los que hayan programado en Basic sabrán lo 
difícil que es realizar un «programón» de más de 
15 K, que implica trabajar con cientos de líneas 
y tratar con miles de errores por cruces de 
valores entre l
s distintas variables. 
Pero el objeto de todo esto no reside en la 
utilización de lenguajes varios, sino que se centra 
en un lenguaje muy concreto, el más árido y 
difícil de todos, aquel que solamente unos pocos 
elegidos dominan y que tiene tal riqueza en sus 
matices y técnicas de programación que cada 
nueva rutina es como poner una pica en Flandes. 
Nos referimos sin lugar a dudas al Ensamblador, 
la forma más primitiva y complicada de 
programar, 
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Pues bien, los adictos a este lenguaje están de 
enhorabuena. Por fin van a poder superar las 
míticas veinte y pico K de código de una sola 
pasada. Se acabó aquello de tener el compilador 
ocupando un espacio precioso en la memoria. 
Para los auténticos programadores de este 
apasionante lenguaje, la casa ACE introduce una 
herramienta verdaderamente valiosa. La solución 
(que no nos explicamos cómo no se le había 
ocurrido antes a alguien) es bien sencilla un 
Ensamblador en ROM (en este caso 
Ensamblador y Desensamblador juntos) para que 
los viciosos del Código Máquina se den una 
«hartura de byte s» . 


Hexam 


Con la sencilla operación de insertar un 
pequeño cartucho (10 x 6 x 2 cm) en el slot de 
expansión de nuestra máquina, el Ensamblador 
está listo para su uso. 
Una vez encendido el ordenador, el sistema se 
inicializa listo para trabajar en Basic. La única 
diferencia es un mensaje que aparece en pantalla 
indicando que el Hexam está presente en el 
sistema preparado para entrar en funcionamiento 
cuando le llamemos. 
Como se indicó arriba, el cartucho contiene 
dos programas que completan el set de 
herramientas de un avezado programador. U no 
de ellos es el Editor con el que generaremos el 
código fuente que posteriormente ensamblaremos 
y otro el Monitor con el cual podremos analizar 
detenidamente y desensamblar el código generado 
por otros compiladores, o por el propio Hexam. 
Situados en el Basic, la entrada en 
funcionamiento no puede ser más sencilla: 
tecleando I EDIT, entra en operación el editor de 
forma instantánea. Por otro lado, tecleando I 
MON tenemos el monitor listo para diferir las K 
de código que le metamos. 



Tal vez para los usuarios no experimentados 
en el Código Máquina el Hexam no represente 
grandes diferencias con los ensambladores 
normales contenidos en cinta o disco. Es para los 
programadores de más entidad para los que está 
diseñada esta herramienta, con un completo 
sistema de edición y tratamiento de código. 
En palabras de ACE «Quien guste de 
programar en Lenguaje Máquina, apreciará 
rápidamente la eficacia de este programa, así 
como el sistema de Soft-keys de que le hemos 
dotado para le selección de los diferentes 
comandos» . 


El editor 


Situados en el editor, la pantalla se ha vuelto 
completamente negra, el área de trabajo está 
situado por encima de una línea horizontal, 
debajo de la cual se encuentra la línea de 
comandos. 
Las Soft-keys responden a un sistema por 
medio del cual cualquier comando puede ser 
obtenido directamente en pantalla sin tener que 
escribir una sola letra, la única pulsación de la 
tecla de función correspondiente hace que éste 
aparezca por debajo del área de trabajo listo para 
ser completado con los parámetros necesarios o 
ejecutado directamente. 
Este sistema permite un rápido acceso a los 
mismos, pudiendo recorrer su repertorio de 
forma rápida, e indicándonos una vez elegida 
nuestra opción los parámetros con que hemos de 
completar la sentencia. Así, no hemos de 
consultar manuales ni instrucciones, sólo pulsar y 
seguir; un sistema directo, rápido y seguro. 
El total de los comandos que integran el editor 
está contenido en cuatro líneas, cada una 
compuesta por seis distintos asociados a las teclas 
de función comprendidas entre los números F4 y 
F9, con la tecla F6 para realizar el cambio de 
línea de comandos. 
Cualquier operación relacionada con listados o 
modificaciones del texto es llevada a cabo gracias 
al cursar, el cual siempre marcará la posición 
inicial para cualquier modificación de los bloques 
de texto. 
Éste se sitúa en la posición indicada por medio 
de las teclas de cursar, siempre que tratemos con 
pequeñas cantidades de texto. Para grandes 
listados o efectuar operaciones de inserción y 
borrado hemos de introducir unos parámetros 
determinados en los comandos correspondientes. 
Para posicionar el cursar en una línea, basta 
con escribir el número de la línea en la sección 
de pantaHa reservada a comandos y pulsar 
ENTER. 


Inserción y otras opcIOnes 
Pulsando la tecla F7 aparecerá en la pantaHa 
de texto ocupando la posición de cursar la 
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palabra NEW, que nos indica que estamos listos 
para escribir el texto deseado, el modo de edición 
se abandona con una nueva pulsación de F7. 
La opción de revisión permite efectuar 
modificaciones dentro de un texto escrito 
anteriormente. En ella siguen operativas todas las 
posibilidades anteriores de movimiento del cursar 
y la salida de la misma se efectúa con una nueva 
pulsación de F8. 
La definición de márgenes de tabulación puede 
realizarse a gusto del usuario, o utilizando los 
previamente definidos en el programa, los cuales 
solamente ocupan una extensión de 40 caracteres, 
quedando el resto de la pantaHa sin tabular. 
El borrado de líneas lo efectúa la roden 
DELETE. Con ella podemos eliminar líneas y 
bloques de texto utilizando el siguiente modo de 
operación basado en las teclas de comandos: 
Una vez seleccionada la opción, aparecerá en 
pantalla una línea de comandos complementaria 
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en la cual tenemos los siguientes parámetros: + 
> o THRU. 
U tilizando el + conseguiremos borrar la 
porción de texto comprendida entre la posición 
actual del cursar y el número de líneas 
especificado tras el signo más, de esta forma 
indicar + 25 borraría las siguientes 25 líneas de 
texto. 
El > sigue la misma tónica con la 
particularidad de que ahora la porción de texto 
acotada corresponde a la comprendida entrc la 
línea del cursar y el número especificado de 
líneas. pero contadas hacia arriba. En este caso 
> 20 borraría las 20 líneas anteriores a la línea 
del cursar. 
El parámetro THR U abre las puertas a tres 
nuevas posibilidades: 
THRU START, con lo que conseguiremos 
borrar el texto comprendido entre la línea de 
cursar y el principio del texto. 
THRU END que efectúa el borrado entre la 
línea de cursar y el final del texto. 
THRU LINE acota para el borrado el bloque 
de líneas comprendido entre la línea en la que se 
haya el cursor y el número introducido por 
teclado. 
Con el conjunto de parámetros especificado es 
fácil delimitar el bloque que se ajuste 
exactamente a nuestras necesidades, siempre de 
una forma fácil y sin líos en el orden de los 
mIsmos. 


Operaciones con ficheros 


El tratamiento de ficheros en disco se efectúa 
con los comandos propios del Basic: CA T, 
LOAD, SA VE, MERGE. 
CA T realiza un directorio del disco sacando 
en la pantalla de texto el resultado del mismo. 
LOAp efectúa la carga de un fichero desde el 
disco. Este ha de estar en código fuente y debe 
haber sido creado por el editor, en otro caso el 
programa no reconocerá el fichero especificado, 
Hexam graba sus ficheros sin extensión alguna y 
con un nombre cuya longitud no ha de exceder 
de ocho caracteres, no siendo necesario situarlos 
entre comillas. 
SA VE graba un fichero en disco, pudiendo ser 
el nombre del mismo especificado por defecto, es 
decir, cuando el fichero estaba anteriormente en 
disco y hemos procedido a su carga para añadir o 
modificar líneas, o introduciéndole con un nuevo 
nombre. 
MERGE posibilita una aplicación muy útil y 
totalmente distinta a la que se le da en Basic. 
Mediante este comando podemos añadir el text 
contenido en el editor una determinada porción 
de otro fichero contenido en el disco. 


MERGE PROGRAMA FROM 100 THRU 200 
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unirá al fichero contenido en memoria las líneas 
comprendidas entre la 100 y 200 (ambas 
incluidas) del fichero con el nombre 
PROGRAMA contenido en el disco. 


Tratamiento de líneas 


La copia de bloques de texto se realiza de fama 
similar al borrado de los mismos especificado con 
anterioridad en DEL. La forma de acotar los 
bloques es la misma para todos los comandos que 
trabajan con ellos. 
En el caso de la copia se utiliza el comando 
COPY, en el cual la máxima cabida de texto 
para efectuar la copia es de 2 K. Por encima de 
esta cifra revasaremos la cantidad de memoria 
reservada a este fin. 
EXTRACT permite extraer texto del fichero 
con el que estamos trabajando. Éste pasa a una 
zona de memoria transitoria para ser procesado 
posteriormente por el comando RETRIEVE. 
RETRIEVE recupera el texto acotado por las 
órdenes COPY o EXTRACT Y lo reproduce en 
la zona deseada a partir de la posición de cursar. 
Para copiar más de una vez el texto archivado 
en el bufer de copia, es posible especificar el 
número de veces que deseamos reproducirlo 
detrás de la orden RETRIEVE. 
RENUM dota de número a las líneas que 
todavía no tienen, actualizando de paso la 
numeración de las demás. Este comando se 
ejecuta desde el campo de trabajo por 
introducción del mismo, o de forma automático 
cuando pretendemos grabar un fichero o 
ensamblar un texto sin renumerar. 


Búsqueda de cadenas 


FIND busca la cadena especificada entre 
comillas a partir de la línea siguiente a la del 
cursor y a lo largo de todo el texto señalándonos 
con el cursar la posición de ésta cuando ha sido 
localizada. Una pulsación de ENTER hará que 
continúe la búsqueda por el resto del texto hasta 
dar de nuevo con la cadena requerida. 
REPLACE realiza la sustitución de la cadena 
especificada entre comillas a lo largo de la 
porción del texto marcada por el comando 
RANGE. Con ella podemos cambiar el nombre 
de variables, etiquetas, códigos de instrucción y 
todo lo que se nos ocurra. 
RANGE sirve para acotar el campo en el que 
posteriormente ha de actuar REPLACE. La 
anchura del campo delimitado puede variar desde 
el total de la pantalla hasta una columna de un 
solo carácter. 
PRINT hace un volcado por impresora del 
texto que tenemos en el área de trabajo. La 
porción de texto que ha de ser impresa se 
especifica por medio de los parámetros de marca 
de bloques, pudiendo volcar desde una sola línea 



hasta la totalidad del mismo, pasando por 
cualquier porción de éste. 
AUTO TAB sitúa automáticamente el cursor 
en la columna correspondiente al código de 
operación, evitando de esta manera la tediosa y 
repetitiva operación de pulsar T AB al principio 
de cada línea. 


Assembler 


Es el comando que permite ensamblar el 
código fuente que tengamos en memoria en 
código directamente ejecutable por el ordenador. 
Sus normas de sintaxis permiten que las 
etiquetas puedan escribirse en mayúsculas o 
minúsculas, debiendo obligatoriamente escribirse 
los códigos de instrucción en minúsculas. 
Las especiales características de este 
ensamblador permiten incluir comentarios al final 
de los códigos de instrucción sin necesidad de ser 
separados por «;" que sólo serán utilizados en el 
caso de querer dedicar una línea completa como 
comentario o se parador . 
Dentro de la operación de ensamblado 
podemos requerir la ejecución de las siguientes 
operaCIones: 
LIST da un listado en pantalla del resultado 
del proceso, sacando dc izquierda a derecha la 
posición adjudicada a la instrucción, código 
generado, código fuente y comentarios. 
PRINT vuelca por impresora el listado 
anterior. 
LIST/WE lista los mismos.parámetros, pero 
deteniendo la ejecución en el comando donde se 
detecta un error. La pulsación de una tecla 
cualquiera pondrá en marcha el proceso de 
nuevo. 
PRINT/E lista los errores detectados por 
impresora, sacando únicamente el tipo de error y 
el número de línea donde se ha producido. 
La ejecución del comando ASSEMBLER 
puede ser detenida con ABOR T. 
BASIC permite el paso al Basic del ordenador 
desde nuestro ensamblador. 
En los modelos 664 y 464 en este trasiego 
perderemos el código contenido en memoria, 
pero en el modelo 6128, éste permanecerá intacto 
y listo para ser recuperado al volver de nuevo al 
editor. 


El monitor 


En otro programa aparte del editor tenemos el 
monitor de Código Máquina, con el cual 
podremos desensamblar cualquier rutina 
producida por el Hexam o cualquier ensamblador 
del mercado. 
La puesta en marcha del mismo se hace desde 
el Basic con el simple tecleo de I MON, instantes 
después aparecerá la pantalla del desensamblador 
listo para recibir el código requerido. 
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Las opciones del mismo se obtienen por el 
simple tecleo de la inicial correspondiente, las 
Cl' ales permanecen en la parte inferior de la 
pantalla constantemente junto con todos los 
comandos del mismo. 
En definitiva, un amplio abanico de 
posibilidades que permiten desensamblar 
cualquier porción de código, reubicarla en 
distintas porciones de memoria, pasar fIcheros al 
disco, listar el desensamble por impresora y todas 
las operaciones necesarias para que cualquier 
Hacker haga maravillas con los programas 
comerciales. 


Conclusiones 


Tanto programadores expertos como iniciados 
con curiosidad en introducirse en el Código 
Máquina encontrarán en este programa en ROM 
una herramienta insustituible a la hora de 
realizar o analizar programas. 
La forma fácil de utilización tanto del editor 
como del monitor, así como la amplia variedad 
de comandos incluidos, hacen que los 
ensambladores en disco o en cinta queden fuera 
de órbita tras la estela del Hexam, que con su 
completo editor proporciona la herramienta más 
potente de programación conocida hasta la fecha 
en los modelos Amstrad. 
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Esta sección está dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores. IOdo aquel que lo 
desee puede enviamos su anuncio, mecanografiado, a: HOBBY 
PRESS, S.A. AMSTRAD Semanal. Apartado de Correos 232 
Alcobendas. Madrid. 
¡ABSTENERSE PIRA T AS! 


. . . . . . . . . . . . . . 


Vendo o cambio programas 
para el 6128, 464, 664, a 200 
ptas. cada uno. Tengo algunos 
como: 1942, Breakthru, Galván, 
Amry Moves, Future Knight, 
lrifiltrator y muchos más. 
Interesados escribir o llamar a 
Clemente Martín. San Martín, 4, 
2. o C. 47400 Medina del 
Campo (Valladolid). Te!. (983) 
80 12 89 (de 9 en adelante). 
Enviar lista. 


. . . . . . . . . . . . . . 


Intercambio todo tipo de 
programas, Juegos y 
aplicaciones, tengo más de 300. 
Arturo Latieno. Enrique Eguren, 


3- 4 A. Vitoria. Te!. 22 05 27, 
a partir de las 6 de la tarde. 


. . . . . . . . . . . . . 


Vendo Amstrad CPC 6128, 
impresora Compute Mate 100, 
unidad de disco DDI -1, Pascal 
MT Plus y dBase 11. Te!. (96) 
373 94 54 (mañanas). 


" 


Mercado 
COMÚN 


. 


. . . . . . . . . . . . . . 


Cambio programas para 
Amstrad CPC's. Enviar lista a 
la siguiente dirección: Amador 
Abelleira, Valencia, 23, 2. o D. 
Gijón (Asturias) Prometo 
contestar. 


. . . . . . . . . . . . . . 


NECESITAMOS personas 
que conozcan, profundamente, lenguaje Ensamblador del 8086/8088 y 
dominen los ordenadores compatibles IBM PC, desde el punto de vista del 
lenguaje Máquina. Se valorarán en gran medida conocimientos acerca del 
Dos. 
Si usted es uno de ellos, póngase en contacto con nosotros rápidamente, 
en la dirección que se indica a continuación, poniendo en lugar muy visible 
del sobre: 
Referencia: Dos AMSTRAD Semanal. 
Nuestra dirección es: 
AMSTRAD Semanal 
Ctra. de Irún. Km 12,400. Fuencarral 128049 Madrid!. 
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"Sábado Chip ", de 17 a 19 h. 
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. . . . . . . . . . . . . . 


Vendo videojuegos Philips G 
7000 con dos videopacs (uno de 
ellos con expansión de 
memoria). Precio a convenir. 
Te!. 430 88 52. 


. . . . . . . . . . . . . . 


Cambio programas con 
usuarios del Amstrad 464, 664, 
6128. Poseo más de 350 
programas, entre ellos las 
últimas novedades. Contestaré a 
todos. Escribir a José Enrique 
Sánchez Hurtado, Torres 
Quevedo, 3, 3 0 C. 02003 
Albacete. O bien llamar al te!. 
(967) 23 49 88. 


. . . . . . . . . . . . . . 


Desearía contactar con 
usuarios del Amstrad CPC 
6128, preferiblemente de Elche. 
Interesados escribir a Manuel 
González Tobar. Concepción 
Arenal, 57, 6. o dcha. Elche 
(Alicante). Te!. 44 08 06. Al 
escribir poner vuestro número 


de teléfono y lista de programas 
de vuestra propiedad, yo haré 
lo mismo en cuanto reciba 
vuestras cartas incluso 
podríamos fo
ar un club de 
usuarios en Elche. 


. . . . . . . . . . . . . . 


Cambio Compacto Panasonic 
(plato, sintonizador y cassette) 
por ordenador Amstrad o 
Commodore. Luis Miguel Prego 
Otero. Rua do Muelle, 17, 
Cambados (Pontevedra). Te!. 
(986) 54 20 14. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 128 
monitor en color, impresora' 
Seikosha SP 1000CPC, con los 
siguientes programas: Tasword 
128 con mailmerge, Wordstar 
con mailmerge, Multiplán, 
dBase 11, cBasic, Dr. Graph, 
Micropen, Microscript, 
copiones y juegos múltiples, una 
verdadera ganga, sólo los 
programas en el mercado ya 


It 
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valen más de 150.000 ptas. 
!od
 por sólo 190.000 ptas., 
mclUIda de regalo la colección 
completa de AMSTRAD Semanal 
6 cintas nuevas para la ' 
impresora y muchos discos. 
Todo en perfecto estado y bajo 
garantía. Interesados llamar al 
(9fi) 352 51 94 ó 361 37 38 
Valencia, 


. . . . . . . . . . . . . . 


Deseo contactar con usuarios 
(o un club de usuarios) de 
Amstrad PCW 8256 para 
intercambio de programas. 
Dispongo de Placon, dBasc 11. 
Facturación y almacén, 
Contabilidad + Vencimientos y 
los juegos Batman y 3D Clock 
Chess. Me interesaría copiones, 
Supercalc 2, un programa de 
mediciones y presupuestos. 
Interesados escribir a Salvador 
Montoya Gutiérrez, Ocaña, 31, 
12. o B, 28047 Madrid. Te!. 
718 36 06. Preferentemente 
noche. 


. . . . . . . . . . . . . . 
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Todos los sábados, de 5 a 7 
de la tarde, en "Sábado Chip" . 
Dirigido por Antonio Rua, 
Presentado por José Luis 
Arriaza, hecho una 
computadora, Dedicado en 
cuerpo y alma al ordenador, 
y a la informática, Haciendo 
radio chip... estilo Cope. 
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Vendo Amstrad CPC-6128 
fósforo verde, con poco uso, ' 
manuales completos, etc. por 
76.000 ptas. Se incluyen discos 
vírgenes, varios libros, muchas 
revistas, etc. Tel. (91) 
850 23 49 Eduardo C. Villalba 
(Madrid). 


. . . . . . . . . . . . . . 


Desearía vender a buen 
precio: un modulador para 
Amstrad 464. Revistas 
AMSTRAD Semanal números del 
1 al 4? inclusive. Preguntar por 
M, a Angeles. Tel. 23 31 55. 
Zaragoza. 


. . . . . . . . . . . . . . 


Deseo contactar con usuarios 
de Amstrad PCW-8256/512 
pdra intercambio de programas. 
Interesados llamar al tel. (93) 
399 25 30 de Badalona ' 
(Barcelona) o escribir al apartado 
de correos 60, de la misma 
ciudad a Luis Carda. 


. . . . . . . . . . . . . . 


Si tienes un PCW y dispones 
de uno de estos programas: 
Gestión de Videoclubs 
Declaración renta (des
rotegido) 
o Gestión integrada de empresa 
no lo pienses más y llama al tel: 
(968) 59 43 39. Tardes o escribe 
a Adolfo Cerón, General Aranda 
23. 30870 Mazarrón (Murcia). ' 
Pago bien. 


. . . . . . . . . . . . . . 


Vendo ordenador Amstrad 
PCW-8256 (con impresora) 
ampliado a 512 Kb y segunda 
unidad de disco de 720 Kb, con 
los programas: Superficial, 
dBase 11, cBasic Compiler y 
Pascal MT +. Todo por 
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160.000 ptas. Llamar al tel. 
(972) 23 93 71, de 21 a 23 
horas. Preguntar por Luis, 


. . . . . . . . . . . . . . 


Desearía contactar con 
usuarios del Amstrad 
CPC-464/664/6128 para 
intercambio de programas de 
todo tipo, información ideas 
etc. Escribir a Juan An;onio ' 
Carda Monloya, Los Naranjos, 
7, El Palmar (Murcia). Tel. 
(968) 84 19 56. 


. . . . . . . . . . . . . . 


¡Atención! Se vende el 
siguiente paquete de programas 
de utilidades ( en disco). 
Contabilidad doméstica y 
personal, Facturación 
Genaload, Monaload: Tasword, 
Tascopy, Amsdraw 11, Amscalc 
y Copión por el precio de 4.300 
ptas (disco incluido). Para 
información escribir a Josep 
Sánchez R. Avda. San Narcís 
98. 17005 Gerona. ' 


. . . . . . . . . . . . . . 


Vendo Amstrad PCW 8256 
con monitor fósforo verde, con 
muy poco tiempo y ningún uso. 
Embalaje perfecto. Regalo 
discos, base de datos y revistas 
y varios programas, uno de 
contabilidad, etc. Todo en 
perfecto estado. Llamar a 
Modesto, Tel. (986) 25 37 92. O 
escribir a Modesto Otero Durán, 
Travesía de Vigo, 275, 2. o, 
puerta 32. Vigo. 


. . . . . . . . . . . . . . 


¡Atención! Se vende el 
siguiente paquete de programas 
de juegos (en disco): 3DChess 
(castcllano), Mercenario, Viernes 
13, Flight Pilot, Sorcery, Bomb 
Jack y Fórmula 1 por el precio de 
3.800 ptas, (disco incluido). Para 
información escribir a Josep Sánchez 
R, Avda. San Narcís, 99. 17005 
Gerona. 


. . . . . . . . . . . . . . 


Club de usuarios de 
Ams
rad, en toda España, 
reqUIere socios. Tenemos más 


de 500 socios. Al inscribirte 
recibirás completamente gratis 
cinco juegos (a tu elección), 
Tenemos gran variedad de 
juegos, pokes, ideas.., Entre los 
juegos están: Amry Moves, 
Commando, The Way off the Tiger 
Il, 3DStar Trike 1 y Il, 1942,.. 
Para más información dirigirse 
a Carlos Martín Mesa Amatista 
63. Getafe (Madrid) 'Tel. (91) , 
682 80 69. 


. . . . . . . . . . . . . . 


BOUTIOUE DEL ORDENADOR 


AMSTRAD pcw ... 69.500 
AMSTRAD 464 .... 39.500 


Procedentes de exposicio- 
nes o cambios. Garantizados, 
impecables. 
Consulte para unidades de 
disco, impresoras, etc... 


ENVíos A TODA ESPAÑA 
Tel.: (91) 416 13 02 (tardes) 


. . . . . . . . . . . . . . 


Vendo unidad de disco para 
CPC-664 y CPC-6128 casi a 
estrenar, precio muy 
interesante. Llamar o escribir a 
fosé Luis Ruiz, Cruz del sur 3 
4. o D, 28007 Madrid. Tel.' , 
2748477. 


. . . . . . . . . . . . . . 


NECESITAMOS 


personas 


que conozcan, 
profundamente. lenguaje 
Ensamblador del Z80 y 
dominen los ordenadores 
Amstrad CPC, desde el 
punto de vista del lenguaje 
Máquina. 
Si usted es uno de ellos 
póngase en contacto con' 
nosotros rápidamente, en la 
dirección que se indica a 
continuación, poniendo en 
lugar muy visible del sobre: 
Referencia: Código 
Máquina AMSTRAD 
Semanal. 


Nuestra dirección es: 
AMSTRAD Semanal 
Ctra. de Irún. Km 12.400. 
Fuencarral (28049 Madrid) 
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Gigantes te espera cada martes en tu kiosco, Una revista impres- 
cindible para toda aficionada, Gigantes del Basket te ofrece las 
últimas noticias, las meiores fotos, las opiniones que te interesan, 
las entrevistas que esperas, las anécdotas que te divierten y los 
los comentarios que te gusta conocer. 
Pídela todas las semanas, porque Gigantes da la ta/la. 
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Carkanoid (CPC 
664-6128) 


. 


La semana pasada estudiamos unas rutinas que 
nos permitían mover una raqueta y emular el 
movimiento de una bola con sus rebotes. Esta 
vez hemos realizado una mejora incluyendo 
también en la pantalla una serie de ladrillos que 
pondrán nuestra tarea más difIcil. 
Respondiendo simplemente con «return» a la 
pregunta «Nombre... ?", obtendremos una 
pantalla de demostración con la disposición 
clásica de los ladrillos. 
Para diseñar nuestras propias pantallas hemos 
creado el diseñador de ladrillos, que le permitirá 
de forma fácil y sencilla hacer sus propias 
composiciones. Su utilización se detalla en el 
siguiente truco. 
La inclusión de la paleta con su movimiento no 
la hemos implementado, y dejamos al ávido 
lector esta tarea que estamos seguros conseguirá 
simplemente fundiéndolo con el del número 
anterior y realizando alguna pequeña 
modificación. 
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10 REM -----MURO----- 
20 REM SOLO CPC 664 CPC 6128 
30 DEFINT a-z 
40 INK 0,1: INK 2.
2 
50 BORDER O 
60 MODE 1 
70 SYMBOL 254,0 
254,254,254,0 
80 SYMBOL 255,0 
127,127,127,0 
90 RANDOMIZE(TIME) 
100 REM DIBUJA PANTALLA 
110 INPUT "NOMBRE.., "¡NOM$ 
120 CLS 
130 IF nore$="" THEN 340 
140 MODE 1 
150 OPENIN NOM$ 
160 WHILE NOT EOF 
170 INPUT #9,A$ 
180 PRINT:PRINT aS; 
190 WEND 
200 PAPFR O:PEN 1 
210 REM PROGRAMA PRINCIPAL 
220 pelota$=" o" 
230 x=INT(RND*20)*2: ix=l: iy=-l 
:y=25 
240 IF x=O 
250 LOCATE 
<>" .. TREN 
3,15 
260 LOCAl E x,y:FRAME:PRINT pel 
ota.$; 
270 IF x=l AND ix=-1 THEN ix=l 
:SOUND 5,201,5,15 
250 IF x=39 AND ix=l THEN ix=- 
l:SCUND 5,201,5 ,15 
290 IF Y =1 AND iy=-l THEN iy= 
1:S0UND 5,201,5,15 
300 IF Y =25 AND iy= 1 TBEN iy 
=-l:SOUND 5,201, 5,15 
310 LOCA TE x,y:PRINT " 
320 x=x+ix:y=y+iy 
330 GOTO 2!:.0 
340 FOR N=1 TO 20:A$=A$+CHR$(2 
55)+CHR$C254):NEXT 
350 PRINT:PRINT aS; :PRINT:PRIN 
T aS; :PRINT:PRINT aS; ;PRINT:PR 
INT aS; 
360 GOTO 210 


,254,254,254, 


, 127, 127, 127, 


THEN 230 
x,y: IF COPYCHR$(#O) 
iy=-iy:SOUND 5,401, 


". 
, 


I 
1 


Editor de ladrillos 


El objetivo de este programa es realizar las 
pantallas que después podrán ser utilizadas por el 
programa anterior. Una vez ejecutado el 
programa y que hayamos dado nombre a la 
pantalla, nos moveremos con las teclas del cursor. 
Para fijar un ladrillo pulsaremos el punto y para 
borrado, el «o». 
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U na vez estemos convencidos de la disposición 
de nuestros ladrillos pulsaremos «return» y 
automáticamente tendremos una copia de ésta en 
el disco, 
Para utilizados ahora con el Carkanoid, 
tendremos que teclear el mismo nombre con el 
que fue grabado, cuando se nos solicite éste. 



10 REM ----- 
20 REM SOLO CPC 664 CPC 6128 
30 DEFINT a-z 
40 INPUT "NOMBRE DE LA PANTALL 
A"; NOMBRE$ 
50 INK 0,1: INK 2,22 
60 BORDER O 
70 MODE 1 
80 SYMBOL 254,255,1,1,1,1,1,1, 
255 
90 SYMBOL 255,255,125,128,125, 
128,128,128,255 
100 REM PROGRAMA PRINCIPAL 
110 Ladrillo$=CHR$(255)+CHR$(2 
54) 
120 x=1:y=1 
130 CURSOR 1,1 
140 WRILE tecla$<>CHR$(13) 
150 LOCATE x,y 
160 IF tecla$=..... THEN PRINT 1 
adrillo$; :x=x+2 
170 IF tecla$="O" TREN PRINT .. 


", 
, 


180 x=x-f <t,ecla$=CHR$ (242) ) *2- ( 
tecla$=CHR$(243»*2 
190 y=y+(tecla$=CHR$(240»*2-( 
tecla$=CHR$(241»*2 
200 IF X>39 TREN X=1:Y=Y+2 
210 IF Y)25 THEN Y=l 
220 IF X<l THEN X=38 
230 IF Y<l THEN Y=25 
240 TECLA$=INKEY$ 
250 WEND 
260 OPENOUT NOMBRE$ 
270 FOR y=l TO 23 STEP 2 
280 FOR 
=1 TO 40: LOCATE x,y:A 
$=A$+COPYCHR$(#O) 
290 NEXT: WRITE #9, A$: A.'£,=.-''''; NFX 


'1" 


Imágenes fantásticas 
 


Como ya es habitual en esta sección no podían 
faltar los programas gráficos. En esta ocasión es 
un programa que nos permitirá observar toda 
una serie de bonitos y variados dibujos, 


;, 



-_:.."
. 


LOT 100.200 
Tr l( 
_..J1 100.20: 


¿on STEP 0,4 
CC.:(N)*n+ang*n,20 
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Caracteres multicolores 
Por José María Arbex 
Este pequeño truco permite obtener 
caracteres de dos colores, empleando solamente el 
Basic. La parte de arriba del carácter aparecerá 
con el color de la pluma 1 y la parte de abajo 
con el de la pluma 3. En el caso de que no se 
redefinan los colores estos caracteres, serán 
amarillos y rojos. La idea del truco es muy 
simple. Se trata de redefinir cada carácter a ser 
impreso como su parte de arriba (4 byte s) y su 
parte de abajo (otros cuatro byte s ), e imprimido 
con dos pasadas con distinto «pen», en modo 
transparente. El programa incluye un pequeño 
editor para probar su funcionamiento y está 
preparado para ser utilizado en modo 1 o m<:do 
O, cambiando simplemente el valor de la vanable 
MO de la línea 20. 



 



 


Muévete 


La semana pasada pudimos ver cómo 
podíamos hacer entender a nuestro ordenador 
algunas de las cosas que sucedían en su exterior a 
través de la toma de Joystick. Si usted dispone de 
la versión 664 ó 6128 también podrá realizar la 
operación inversa actuando a través de la 
conexión remate. Para conseguir que algo se 
mueva fuera necesitará poner en su ingenio una 
conexión del mismo tipo que la de los cassettes 
convencionales. 
Para enviar una instrucción de «en marcha» 
desde el ordenador, sólo tendrá que hacer un 
Call a &BC6E motor ON, y si desea 
desactivarlo, Call &BC71. 


j 



 


20 mo=O:MODE rno;SYMBOL AFTER 2 
56:SYMBOL AFTER O 
30 nhi=HlMEM+521:hi=1:PRINT CH 
R$(22)+CHR$(1) 
40 a$="Escribe lo que quieras: 
":ret=l:FOR z=1 TO LEN(a$):F$ 
=MID$(A$,Z,1):x=x+1:GOSUB 60:N 
EXT:hi=4:x=1:ret=O:MOVE 0,380: 
DRAWR ;356,0,2 
41 f$= INKEY$; IF f$='''' TREN 41 
ELSE x=x+1: IF x=21+20*rno-20*(rn 
0=2) THEN hi=hi+l:x=1 
50 IF f$=CHR$(127) AND x>l THE 
N PEN O:PRINT CHR$(8)+CHR$(143 


)+CRR$(5); : x=x-2:PEN 1: GOTO 41 
60 y= 8*«ASC(f$)-64)-1)+nhi 
70 FOR des=O TO 2 STEP 2 
80 IF des=O THEN SYMBOL ASC(f$ 
),PEEK(y),PEEK(y+1J,PEEK(y+2), 
PEEK(y+3),O,O,O,0 ELSE SYMBOL 
ASC(f$),0,0,0,0,PEEK(y+4),PEEK 
(y+5),PEEK(y+6),PEEK(y+7) 
90 LOCATE x,hi:PEN des+l:PRINT 
f$; 
100 SYMBOL AFTER 256:SYMBOL AF 
TER O:NEXT:SOUND 1,286,1,15", 
1: IF ret =1 TREN RETURN ELSE 4 
1 
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Conversión a 
binario 


. 
sIstema 


El sistema binario resulta totalmente 
imprescindible para realizar múltiples operaciones 
con el ordenador. 
Las formas de pasar un número decimal a 
binario son múltiples y variadas y ésta que hoy 
proponemos puede considerarse como una de las 
más lógicas y rápidas. 
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o 
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o O, \ 
100 O 


, 


10 REM CONVERSION DE BINAR 10 A 
DECIMAL 
20 INPUT "NUMERO BINARIO: . 
. . . . . . . . . , . . . . " . B 1 N AR 10$ 
30 FOR N=LEN(BINARIO$) TO 1 ST 
EP -1 
40 DECIMAL=DECIMAL+VAL(MID$(BI 
NARIO$.N. 1»*2
(LEN(BINARIO$)- 
N) 
50 NEXT N 
60 PRINT DECIMAL 
70 RUN 


.. 


1 


UPPER 


LOWER 


Mejor que UPPER$ y 
LOWER$ 


Si es usuario de un 664 o de un 6128 y desea 
que su CPC olvide las mayúsculas, le bastará con 
hacer Poke(&B68B),peek(&B68D). Si desea lo 
contrario tendrá que realizar la operación 
inversa: Poke(&B68D),peek(&B68B). 
En el caso de que disponga de un 464, las 
direcciones son ligeramente distintas. 
Para anular las minúsculas: Poke(&B541),peek 
( &b543) 
Para anular las mayúsculas: Poke( &B543),peek 
(&b541) 
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GEM Draw. El 
de dibujar 


arte 
con un PC 


Por: Feo. Javier Bareeló 


Cuando Alan Sugar 
diseñó el Amstrad pe, 
decidió crear, por un precio 
realmente brgo (en principio)) 
algo m
 que un compatible 
PC (en principio). Eligió 
incluir el entorno gráfico GEM, 
de Digital Research. 
Con ello, adem
 de poner 
a disposición de los usuarios 
una inmensa biblioteca 
de programas diseñados para 
los PCs (en principio)) multiplicaba 
la misma y su facilidad de uso a 
través de los programas diseñados 
en este entorno. 


Por AMSTRAD Semanal pasa hoy la 
primera versión de un programa que pronto 
estará, en su versión definitiva, en la calle: GEM 
Draw. Su orientación está en el campo del dibujo 
lineal, y sus características responden a lo 
deseado. 
El primer paso a dar con esta aplicación es 
instalada. Gracias a Dios, esto se realiza 
automáticamente, mediante el programa Instal que 
viene en el disco maestro. Con este programa se 
obtiene una copia de los programas más 
importantes, bien en un disco flexible, o bien en 
el disco duro. El programa principal, tal y como 
vienen configuradas todas las aplicaciones de 
GEM, queda instalado en el subdirectorio (o 
carpeta) GEMAPPS, pero en cualquier caso es 
necesario tener el disco maestro introducido en el 
ordenador para poner en marcha el programa, 
debido a la protección anti-pirateo que incorpora. 
La aplicación viene acompañada de dos carpetas 
con dibujos de ejemplos, que dan una idea de la 
potencia del programa. 
U na vez en marcha, aparece la pantalla 
principal, en la que la primera fila está dedicada 
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FICHA TÉCNICA 


Programa 
Sist. Operativo 
Ordenador mínimo 


GEM DRAW 
MS-DOS 3,20 
PC 1512 con 2 
unidades de disco 
22.300 
Microbyte 


Precio 
Distribuidor 


a los índices de los distintos menús disponibles y 
la primera columna a los tipos de trazos que se 
pueden realizar. 


El dibujo 


Para empezar a dibujar, llevando el puntero a 
la columna izquierda, se elige el tipo de figura 
que se va a realizar. Podemos seleccionar 
rectángulos, elipses, círculos, polígonos, arcos, 
líneas y textos. Una vez escogida la figura, se 
coloca el cursor en el punto donde se quiere 
empezar a dibujar, y se aprieta el botón 
izquierdo del ratón. Ahora, se traslada el ratón 



por la pantalla y, según la figura elegida, se va 
creando el dibujo. Una vez que se tiene la forma 
deseada, se suelta el botón del ratón y queda 
fijada. Ahora se puede elegir otra figura para 
continuar el dibujo, o mover la parte 
seleccionada por la pantalla para colocada en el 
lugar deseado. 
Además del dibujo propiamente dicho, se 
pueden duplicar las imágenes, movedas por la 
pantalla, centradas o alineadas automáticamente 
y modificadas. Para ello, lo primero que hay que 
hacer es seleccionar la parte del dibujo en la que 
se va a operar. Si se desea funcionar con varias 
partes del dibujo a la vez, hay que agrupadas 
previamente, dado que cada vez que se realiza 
un tramo del dibujo, el programa lo considera 
una parte distinta. 
La utilidad más importante es una mano 
dibujada en la columna izquierda. Al 
seleccionada con el puntero, se puede elegir una 
parte del dibujo, o agrupar determinados 
elementos, y, en general, hacer uso de los menú s 
de la primera fila, operando sólo con la parte 
seleccionada. 
El texto se puede colocar en cualquier parte, 
en dos tipos de letras distintas y varios tamaños 
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A pesar de estar dirigido al dibujo lineal, puede usarse con 
cierto éxito en el artístico. 
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diferentes, pudiéndose también mover y centrar 
automáticamente. 
A la hora de realizar dibujos profesionales, en 
cuanto se familiariza uno con el programa, los 
resultados pueden ser asombrosos. La facilidad 
del zoom para ampliar permite dibujar con gran 
detalle cualquier cosa, y apoyándose en 
herramientas como la regla, de escala regulable 
(desgraciadamente sólo en pulgadas) o la 
cuadrícula, también de tamaño variable, evita la 
pérdida de referencias. No obstante, para alinear 
o centrar el texto es conveniente tener el zoom 
sin ampliar, dado que lo que se ve aumentado en 
la pantalla es parte del dibujo, y al imprimido 
todo, la figura o texto pueden no estar centradas. 


Menús 


Ficheros, Incorpora funciones para cargar un 
dibujo del disco, salvado, cambiado de nombre, 
y conectar con la aplicación "OUTPUT" que 
permite imprimir los dibujos y salvados en disco 
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Dispone de 
una serie de 
menús y 
explicaciones 
que ayudan a 
su fácil 
mane.¡o. 


El detalle con 
el que permite 
trabajar es 
una de las 
mayores 
ventajas del 
GEM Draw. 
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Los mapas pueden ser una de las aplicaciones más útile.< 
del programa. 


en modo de "IMAGEN". (Por cierto, si logran 
un dibujo bonito, y quieren que aparezca al 
arrancarse el ordenador, basta con salvarlo en 
este modo e incluir en el fichero 
AUTOEXEC.BAT que está en el disco de 
arranque, línea TYPE DIBUjO.EXT.) 
Editar. Permite seleccionar una parte del 
dibujo, recuperar una parte borrada, duplicar 
una parte seleccionada previamente y agrupar 
todo el dibujo en una sola «selección». 
Fuentes, Incorpora dos tipos de letras para los 
textos, eligiéndose dentro de éstas seis tamaños 
diferentes, así como el tipo de impresión, entre 
«negrita», «itálica», «subrayada» y normal. 
Página. Permite optar entre imagen normal, 
ampliada o reducida, y si se desea disponer de 
regla numerada, su escala, y si se desea dibujar 
sobre una trama o cuadrícula, el tamaño de ésta. 
También permite elegir si el dibujo se desea 
poner sobre el papel en forma horizontal o 
vertical, así como el tamaño de la hoja. Pero la 
parte fundamental es dar la medida de la hoja en 
la que se va a imprimir, dado que se puede 
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especificar para cada dibujo, pero no en la opción 
de impresión OUTPUT. 
Ordenar. En caso de varias figuras, a través de 
este menú se pueden centrar en el papel, 
alinearlas a izquierda o derecha. Agrupar varias 
en una, desagruparlas, y repartirlas por el papel 
uniformemente. Para operar con cualquier 
comando, tienen que estar seleccionadas las 
partes de la imagen a ordenar. 
Fondos. Treinta y nueve fondos de papel, ni 
más ni menos, se pueden elegir para dibujar 
encima de ellos. Se puede seleccionar un área 
para un determinado fondo, y cambiar de área 
para otro fondo, de manera ilimitada, como se 
ve, casi nada... 
Líneas. Se puede elegir línea continua o tres 
tipos de línea discontinua, cuatro grosores 
distintos de cada tipo, y si se desea que las líneas 
señalen los vértices con cabeza en forma de 
flecha. De esta manera, se pueden resaltar las 
partes del dibujo que se deseen. Aunque es más 
aconsejable realizar primero todo el dibujo con 
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líneas finas, y posteriormente cambiar las líneas 
que se deseen. 
Color. Hasta 16 colores se pueden combinar en 
pantalla para aumentar la vistosidad del dibujo, 
aunque naturalmente a la hora de imprimir esto 
resulte indiferente. 


1 
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Complementos 


GEM Draw proporciona (no se sabe todavía si 
incluido en el mismo paquete, o por separado), 
además, un disco de librería, donde ya vienen 
realizados multitud de diseños para utilizar en 1m 
dibujos. El GEM Draw library incluye 40 bordes 
diferentes para adornar los dibujos, así como un 
sinfín de símbolos, utilizados en electricidad, 
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Símbolos gráficos que forman una de las 
bibliotecas de GEM DRA W. 


informática, empresa. ete. 
Todos estos signos se pueden utilizar 
posteriormente en dibujos, mezclándolos, 
moviéndolos y cambiando su tamaño. 
Este disquete viene, además, con instrucciones 
grabadas en disco, de manera que se pueden 
consultar por pantalla o imprimir a través del 
programa OUTPUT, quedando un pequeño 
manual de consulta francamente curioso y 
estéticamente perfecto. 


Conclusión 


GEM Draw está claramente enfocado al dibujo 
lineal, y cumple con su cometido perfectamente. 
Probablemente, al principio resulte un poco difícil 
acostumbrarse al manejo del ratón, por lo que es 
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Poder manqar varias pantallas simultáneamente es unu de los 
mayores atractivos del GEM Draw. 
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En diseño industrial, a pesar de no ser la herramienta 
óptima, también pueden conseguirse buenos resultados. 
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aconsejable realizar varias pruebas cambiando la 
sensibilidad del mismo a través del programa de 
instalación del GEM. Una vez superada esta 
dificultad, el manejo no ofrece complicaciones. 
Desde luego, este programa hará que más de 
un estudiante de ingeniería o arquitectura realice 
las láminas de clase con esta herramienta, 
olvidando el tablero y la goma de borrar. TotaL 
luego se le pasa el rotring... 
Aunque quizá un poco «espartano» en algunas 
opciones, el nivel general del programd es muy 
bueno, y el límite de complicación de los dibujos 
que se pueden hacer se antoja muy alto. (Con 
Plotter ya que puede ser la pera. . .) 
No podemos hablar del manual, dado que al 
ser ésta una versión preliminar, no nos ha sido 
facilitado todavía, pero tampoco es algo 
fundamental. Su manejo no presenta ningún 
problema, como todos los programas de GEM, 
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Seleccionando 
una parte del 
dibujo, uno de 
,'us elementos, 
podremos 
realizar en él 
sofisticadas 
mudificaciones. 
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DOUBLE TAKE 
Dos mundos. Uno positivo y familiar; el 
otro, negativo, diabólico y desconocido. Su 
unión, un agujero en el tiempo y en el es- 
pacio a través del cual pasan los objetos. 
Tu misión es pasar de un mundo a otro 
mundo hasta recuperar las cosas que han 
sido robadas y transportadas al mundo os- 
curo... Pero date prisa, al pasar el tiempo 
todo será más difícil. 
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PULSATOR 


Un clásico juego de marcianos que te 
mantendrá pegado al ordenador durante 
horas. 
Cinco niveles con 49 pantallas cada uno... 
Una locura, ¿no? 
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UCHI-MA T A 
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Basado en el judo, "Uchi-Mata", es proba- 
blemente el más avanzado y completo de 
los simuladores de artes marciales existen- 
tes. El juego ha sido diseñado bajo el ase- 
soramiento de Brian Jacks, cinturón negro, 
7.° Dan, cuatro veces campeón de Europa 
y Medalla Olímpica, uno de los mejores lu- 
chadores de judo del mundo. 
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SHAO LlNS ROAD 
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El juego de Konami de mayor éxito en las 
máquinas, en versión ahora para tu orde- 
nador. Ayuda a Shao Un a escapar de sus 
múltiples enemigos en su camino hacia la 
libertad. Salta, pega, agáchate y esquiva 
los puñales... Acción a tope. 
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EXPRESS RAIDER 
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Como en las clásicas películas del Lejano 
Oeste, estarás en el centro de la acción 
desde el principio. Asaltos al tren, lucha 
sobre los vagones, cabalga sobre tu rápido 
caballo... Express Raider lo tiene todo. 


. . 
-.' .' 
.
. 


. . 


-. ... 


, 


. , 


. . 
. .' 


.
 ., 


. . 


'. 


. . 


. . .
 . 
...
.....::-. 
. . 


..
.. 
. .- .'!.... 
.... . .a. . r..:,. 


.. 


.
 


". 


'. . 


, '. 
.' " 


.. ..- 
.1 "" 
, '. 


. 


..' 
!-.I 
.. 
.' 
. 

, 


. . 


,.' 


.. . 
t., 
- . 


.'1 
. 
" 


.. 


\ 


" o 
. -.. 


.... 


e 
. ' 


.-. 


.. 


. 'lit 


.
.. 
. ,. 
.' 


Ir. 
" . 


" . 
oO. . 


, . 


.... 
. . 
.. 
'.
 


;::/-):4 

.. 


. o 
lo 


, ' .. 


SIGMA 7 


.. 
. '. 


. . 


Toda la acción de los juegos espaciales, 
en este fabuloso juego tridimensional. Un 
auténtico derroche de imaginación con sie- 
te niveles diferentes y totalmente distintos. 
Móntate en tu nave y abróchate el cintu- 
rón, el despegue es inminente. 
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I EL MOMENTO POR SOLO 
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Encuentra el "Cristal del Poder" y comtiate 
contra dragones, demonios y guerreros 
hasta encontrar al "Mago Blanco" para la 
lucha final. 
Quizá tengas en tu pantalla los más im- 
presionantes gráficos en 3 dimensiones 
que hayas visto jamás. 
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FIST 11 
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La deseada continu,ación de "Exploding 
Fist" ya es una realidad; Fist 11 es mucho 
más que una segunda parte: más de 100 
pantallas y 700 sprites diferentes, en las 
que los oponentes al Gran Maestro se es- 
conden en bosques, acantilados, cavernas 
y lugares con paisajes que te asombrarán. 


:. .. ] 
" . 
. 


...
. 


." 
. 


. 
-. . 


..
' 


. . 
.... 


",- 


· a 


.J 


.. 
 


. 
: -..1- 


.' 


11, 
L
 ' olÍ 


...,
'; 
-..... 
.... . 
-4. 
.', 
"" '. .. 
;¿-. . 
-.. . 
. ..... 
'. . :... 
. 
 e. 
..- .. 
- 


¡ I 1 


, 


/
 
, 
 -'/- 


. . 


Oo, .._ 
." e.. 


. " 


. . 
.-. ;. 




,...- 
;roL" '" 


.. , 

 ' 
. l' 
. . 



i.: 


. . 


. - 
.-... - 


.. .¡
. 
1.. .. 
I f".-' 
.
.:. 
.. . 
. ....... 
.., . .. 
. 
" e. .. 
-.. 
e,. . 
I . . . 
... . 
.. .-: 
.h 


SHADOW SKIMMER 
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Un sorprendente súper-suave, súper-rápi- 
do juego de combate espacial que presen- 
ta increíbles pantallas llenas de colorido y 
acción como nunca antes habrás experi- 
mentado. 
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Los héroes de los dibujos del T.V, con el 
célebre He-Man al frente van a luchar con- 
tra Skeletor, el Señor de las Fuerzas del 
Mal en una alucinante aventura en el casti- 
llo de Grayskull, Tú eres el protagonista. 
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Era una posibilidad entre un millón, pero el 
N,o 5, diseñado para ser un sistema de ar- 
mamento dotado de inteligencia artificial, el 
más sofisticado robot del planeta, se esca- 
pó y se dio cuenta que estaba vivo. Ahora, 
el científico que le construyó quiere encon- 
trarle y destruirle, 
Tú eres el N.o 5, no te dejes atrapar. 
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PALlTRON 
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¡¡Es un juego insólito!! Por primera vez, un 
juego te permite no sólo guiar a su prota- 
gonista, un robot Servo 027, en su intento 
de localizar y destruir los cristales de un 
extraño mineral que está acabando con la 
vida en Palitron, si no que también te per- 
mite programar a otros robots para que te 
ayuden. Y todo con un color y unos gráfi- 
cos extraordinarios. 
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Espía de gráficos 


Por: Alberto Suñer 


Hay determinados gráficos que merecen ser grabados. Con otros se 
podrían hacer unas cuantas modificaciones que los mejorarían. 
Incluso) e'quién no ha soñado con introducir su personaje favorito en 
ese programa que tanto le divierte? El objetivo de este programa es) 
precisamente) ayudarle a buscar y «espiar» todos esos gráficos. 


EXisten muchus prugramas en el mercado, 
en los cuales aparecen unus gráficos 
verdaderamente bonitos, con movimientos tan 
perfectos que parecen otorgarles vida propia. 
Estos gráficos han sido realizadus pur 
verdaderos artistas o bien han sido digitalizados 
de imágenes de vídeo o de dibujos extraídos de 
diversos cómics. 
Ahora bien, nosotros únicamente podemos 
visualizarlos, cuando estamos ejecutando el 
programa, e incluso algunos de estos gráficos 
quizá no los podamos ver nunca, debido a que se 
encuentren en una fase del juego que sea de 
difícil acceso y a la cual haga falta mucho tiempo 
y habilidad para conseguir llegar. 
En cualquier caso, aunque se puedan visualizar 
en alguna ocasión, siempre que deseemos 
observar dicho gráfico, o mostrárselo a alguien, 
deberemos cargar el juego, y llegar a la fase en 
que se encuentra el mismo. 
Aparte de esta circunstancia, si queremos 
observar atentamente la secuencia de 
movimiento, nos será imposible, ya que no 
podremos aislar el gráfico a estudiar del entorno 
que lo rodea. 
Por otra parte, quizá alguno de nosotros haya 
pensado alguna vez en almacenar los mejores 
gráficos que aparecen en los programas 
comerciales, por separado, para poderlos sacar 
por impresora, o bien únicamente para 
visualizarlos cada vez que lo deseemos. 
Ahora bien, el problema que se nos plantea, es 
saber en qué dirección de memoria se encuentra 
cada uno de estos gráficos, para poderlos salvar 
en disco o cinta por separado. 
Para evitar este problema, hoyos presentamos 
un prugrama que os permitirá revisar la 
memoria, mostrándonos en pantalla todo lo que 
en ella se encuentra, para de esta forma 
conseguir localizar todos y cada uno de lus 
gráficos de que está compuesto cada juego. 
Este programa consta de dos bloques, uno de 
ellos en Basic y otro en Código Máquina. El 
bloque en Basic nos permitirá cargar el bloque 
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que se desee visualizar, en memoria, y además 
nos permitirá salvar la ventana que se encuentre 
en pantalla en cada momento. 
La rutina en Código Máquina. es la que se 
encarga de tomar el contenido de la memoria y 
pasarlo a pantalla, además de otras muchas 
opciones que se indicarán más adelante. 


Utilización del programa 


El funcionamiento es extremadamente sencillo. 
Además nos ofrece toda la información referente 
a la ventana que se encuentra en pantalla. en la 
parte inferior de la misma. 
A cuntinuación indicaremos cada una de las opciones 
posibles, y las teclas cun las que se podrán ejecutar 
· Cursor arriba: incrementa la dirección de 
memoria tantos bytes como ancha sea la ventana. 
· Cursor abajo: decrementa la dirección de 
memoria tantos bytes como ancha sea la ventana. 
· Cursor derecha: incrementa la dirección de 
memOria. 
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PROGRAMA CARGADOR 


1 REM ESPIA DE GRAFICOS 
2 REM PROGRAMA CARGADOR 
10 FOR N=&9000 TO &928A 
20 READ A:SUMA=SUMA+A 
30 POKE N,A 
40 NEXT 
50 IF SUMA058695 THEN PRINT "ERROR 
EN DATAS" 
60 DATA 62.1,205,199,5,62,40 
70 DATA 50,111,6,62,10,50,112 
80 DATA 6,33,0,0,34,107,6 
90 DATA 205,24,187,62,54,205,30 
100 DATA 187,192,62,9,205.30,187 
110 DATA 40,3,205,81,5,62,0 
120 DATA 205,30,187,40,3,205,204 
130 DATA 4,62,2,205,30,187,40 
140 DATA 3,205,221,4,62,8,205 
150 DATA 30,187,40,3.205,241,4 
160 DATA 62,1,205,30,187,40,3 
170 DATA 205,252,4,62,15,205,30 
180 DATA 187,40,7,62,0,205,199 
190 DATA 5,24,44,62,13,205,30 
200 DATA 187,40,7,62,1,205,199 
210 DATA 5,24,30,62,14,205,30 
220 DATA 187,40,7,62,2,205,199 
230 DATA 5,24,16,62,38,205,30 
240 DATA 187,196,119,4,62,46,205 
250 DATA 30,187,196,130,4,205,144 
260 DATA 4,24,134,42,107,6,17 
270 DATA 100,0,25,34,107,6,201 
280 DATA 42,107,6,55,63,17,100 
290 DATA 0,237,82,34,107,6,201 
300 DATA 33,0,0,205,26,188,253 
310 DATA 42,107,6,58,111,6,71 
320 DATA 24,21,124,230,56,254,56 
330 DATA 40,6,124,198,8,103,24 
340 DATA 8,17,80,0,124,238,56 
350 DATA 103,25,197,229,58,112,6 
360 DATA 71,253,126,0,119,253,35 
370 DATA 35,16,247,225,193,16,216 
380 DATA 295,7,5,201,42,107,6 
390 DATA 58,112,6,95,22,0,25 
400 DATA 34,107,6,205,144,4,201 
410 DATA 42,107,6,58,112,6,95 
420 DATA 22,0,55,63,237,82,34 
430 DATA 107,6,205,144,4,201,42 
440 DATA 107,6,35,34,107,6,205 
450 DATA 144,4,201,42,107,6,43 
460 DATA 34,107,6,205,144,4,201 
470 DATA 33,23,14,205,117,187,42 
480 DATA 107,6,205,222,5,58,112 
490 DATA 6,71,33,0,0,22,0 
500 DATA 58,111.6,95,25,16,253 
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Gráficos por 
ORDENADOR 
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 · Cursor 
izquierda: 
decrementa la 
dirección de 
memOrIa. 
· M: 
incremento 
rápido de la 
dirección de 
memOrIa. 
· N: decremento rápido 
de la dirección de 
memOrIa. 
· B: retorna a Basic. 
· F2: muestra la 


. 
I 


ventana en modo 2. 
· F1: muestra la ventana en modo 1. 
· FO: muestra la ventana en modo O, 
· COPIA: modifica anchura y altura de la ventana. 
Una vez dentro de la opción COPIA, 
tendremos las siguientes posibilidades: 
Cursar arriba: aumenta la altura de la 
ventana. 
Cursor abajo: decrementa la altura de la 
ventana. 
Cursor derecha: aumenta la anchura de la 
ventana. 
Cursor izquierda: decrementa la anchura de la 
ventana. 
ENTER: abandono de esta opción. 
Además, en la parte inferior de la pantalla, 
aparecerá información sobre la ventana que se 
está visualizando. Ésta nos indicará la dirección 
de memoria que se está visualizando, la anchura 
y altura de la ventana y la longitud que ocupa. 
Dirección: 00000 
Longitud: 00128 
Alto x Ancho: 04 x 04. 


Vamos a ver ahora cuál es el método a seguir 
para intentar localizar los gráficos que se 
enruentran en memoria. 
En primer lugar, deberemos cargar el 
programa Basic, que se encargará de introducir 
en memoria la rutina en Código Máquina. Una 
vez ejecutado el programa, se nos pedirá el 
nombre del bloque que se desea visualizar en 
pantalla, y se cargará a partir de la dirección 1700. 
Debf'mos tener en cuenta que la longitud del 
bloque a cargar en memoria, no debe sobrepasar 
los 39 kbytes. ya que de lo contrario no se 
admitirá la carga al sobrepasar la memoria disponible. 
En este momento estamos en condiciones de 
buscar los gráficos que se encuentran en memoria 
y para ello nos ayudaremos de las teclas de cursor. 
Se ha de tener en cuenta que, dado que los 
gráficos están almacenados en memoria en forma 
de bloques de dimensiones determinadas, 
nosotros deberemos ir modificando la altura y 
anchura de la ventana hasta que coincidan con la 
del gráfico en memoria, de lo contrario no 
podríamos distinguir ningún gráfico. 
Debemos también fijamos en el modo de 
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pantalla, ya que un gráfico realizado en un 
determinado modo, no es reconocible en un 
modo distinto. 
Así pues, deberemos ir modificando tanto el 
modo de pantalla, como las dimensiones de la 
ventana, hasta localizar el gráfico deseado. 
En un principio quizá nos parezca algo difícil 
conseguir localizar algún gráfico, pero una vez sr 
haya utilizado varias veces este programa, nos 
resultará realmente muy fácil localizar cada uno 
de los gráficos que se encuentren en memoria. 
Para hacer más sencilla la búsqueda de gráficos 
por primera vez, vamos a dar a continuación una 
serie de recomendaciones o consejos para 
habituamos rápidamente a su utilización. 
En primer lugar diremos que en cualquier 
programa, por lo general, los gráficos se 
encuentran ubicados en una misma zona, 
Cuando hayamos encontrado el primero, los 
restantes estarán a continuación de éste. 
Si nos encontramos en esta situación, 
únicamente deberemos ir alterando las 
dimensiones de la ventana, para poder visualizar 
cada uno de los gráficos. 


Cómo encontrar los gráficos 


En caso de que nos resulte difIcil encontrar el 
primer gráfico, deberemos dar una pasada rápida 
por toda la memoria utilizando la opción M o N, 
desechando todas aquellas zonas en las que se 
visualicen en la ventana formas sin ning-ún sentido. 
Pasa por la zona donde se encuentra algún 
gráfico, aunque las dimensiones de la ventana no 
sean las mismas que las de éste, se visualizarán 
unos rasgos que nos indicarán si se trata de un 
gráfico, por lo que deberemos modIficar las 
dimensiones de nuestra ventana. 
En caso de que aún no se haya localizado 
ningún gráfico, deberemos ejecutar la misma 
operación, pero esta vez cambiando el modo de 
pantalla con cualquiera de las teclas 
correspondientes a dicha opción. 
Una vez localizado el gráfico o gráficos 
deseados, podremos salvados en cinta o disco, 
pulsando la tecla B, con lo cual volveremos al 
Basic que nos pedirá el nombre que le queremos 
dar a dicha figura. 
Debemos advertir, que aunque el programa se 
ejecute en pantalla en modo 1, los gráficos 
pueden estar almacenados en memoria en modo 
2, por tanto deberemos revisar la memoria en 
cualquiera de dichos modos hasta encontrar el 
adecuado. Diremos también que por lo general SI 
un progrma se ejecuta en modo O, los gráficos 
también se encontrarán en dicho modo. 
Otra de las posibilidades que nos ofrece este 
programa, es averiguar las direcciones de 
memoria en que se encuentran cada uno de los gráficos. 
Esto nos puede servir para incorporar nuestros 
propios gráficos a cualquier programa comercial, para 


. 



Gráficos por 
ORDENADOR 


1 óESPIA DE GRAFICOS 
10 ORG 1000 
20 LD A,1 
30 CALL CLS 
40 LD A,40 
50 LD (ALTO> ,A 
60 LD A,10 
70 LD (ANCHO) ,A 
80 LD HL,O 
90 LD <D I RMEJO , HL 
100 TECL: CALL #BB18 
110 LD A,54 
120 CALL #BBIE 
130 RET NZ 
140 LD A,9 
150 CALL #BBIE 
; 160 JR Z,NOTE 
170 CALL GRADUA 
180 NOTE: LD A,O 
190 CALL #BBIE 
;. 200 JR Z,NOTEl 
210 CALL UP 
220 NOTE 1 : LD A,2 
230 CALL #BBIE 
240 JR Z,NOTE2 
250 CALL DOWN 
260 NOTE2: LD A,8 
270 CALL #BBIE 
280 JR Z,NOTE3 
290 CALL IZQ 
300 NOTE3: LD A,l 
310 CALL #BBIE 
320 JR Z,NOTE4 
330 CALL DER 
340 NOTE4 : LD A,15 
350 CALL #BBIE 
360 JR Z,NOTE5 
370 LD A,O 
380 CALL CLS 
390 JR PANTAL 
400 NOTE5: LD A,13 
410 CALL #BBIE 
420 JR Z,NOTE6 
430 LD A,l 
440 CALL CLS 
450 JR PANTAL 
460 NOTE6: LD A,14 
470 CALL #BBIE 
480 JR Z,NOTE7 
490 LD A,2 
500 CALL CLS 
510 JR PANTAL 
520 NOTE7: LD A,38 


970 INC IY 
980 INC HL 
990 DJNZ P_BUCl 
1000 POP HL 
1010 POP BC 
1020 DJNZ P_BUC 
1030 CALL PINDIR 
1040 RET 
1050 UP: LD HL, <D I RMEJ() 
1060 LD A, (ANCHO> 
1070 LD E,A 
1080 LD D,O 
1090 ADD HL,DE 
1100 LD (DIRMEJO, HL 
1110 CALL PINTA 
1120 RET 
1130 DOWN: LD HL, (DIRMEJ() 
1140 LD A, (ANCHO> 
1150 LD E,A 
1160 LD D,O 
1170 SCF 
1180 CCF 
1190 SBC HL,DE 
1200 LD (DIRMEJO , HL 
1210 CALL PINTA 
1220 RET 
1230 IZQ: LD HL, (DIRKEJO 
1240 INC HL 
1250 LD (I}IRKBM).,-H1r 
1260 CALL PINTA 
1270 RET 
1280 DER: LD HL, <D 1 RMEJII) 
1290 DEC HL 
1300 LD <DIRMEJII). HL 
1310 CALL PINTA 
1320 RET 
1330 PIIiDIR: LD HL.#OE17 
1340 CALL #BB75 
1350 LD HL, <DIRMEJ() 
1360 CALL PINUJo! 
1370 LD A, (ANCHO> 
1380 LD B,A 
1390 LD HL,O 
1400 LD D,O 


530 CALL #BBIE 
540 CALL NZ,ADMEJo! 
550 LD A,46 
560 CALL #BBIE 
570 CALL NZ,SUBMEJo! 
580 PANTAL: CALL PINTA 
590 J1\ TECL 
600 ADMEJII: LD HL, (DIRMEJII) 
610 LD DE,100 
620 ADD HL,DE 
630 LD <DIRMEJII), HL) 
640 RET 
650 SUBMEJII: LD HL, <DIRMEJII) 
660 SCF 
670 CCF 
680 LD DE,100 
690 SBC HL,DE 
700 LD (DIRMEJII),HL 
710 RET 
720 PINTA: LD HL,O 
730 CALL #BCIA 
740 LD IY, (DI RMEJo!) 
750 LD A, (ALTO> 
760 LD B,A 
770 JR PINT 
780 P_BUC: LD A,H 
790 AND 56 
800 CP 56 
810 JR Z,P_ PAS 
820 LD A,H 
830 ADD A,8 
840 LD H,A 
850 JR PINT 
860 P _PAS: LD DE,0080 
870 LD A,H 
880 XOR 56 
890 LD H,A 
900 ADD HL,DE 
910 PINT: PUSH BC 
920 PUSH HL 
930 LD A, (ANCHO> 
940 LD B,A 
950 P_BUC1: LD A, (IY+O) 
960 LD (HL),A 



 


,
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poder, de esta forma, jugar a nuestra aventura 
preferida con un personaje creado por nosotros 
mismos, 
Para poder hacer esto último, deberemos tener en 
cuenta que el nuevo gráfico sea de las mismas 
dimensiones que el que se desea sustituir. 
Otra posibilidad que existe es la de modificar las 
figuras de cualquier programa a nuestro antojo, y 
luego volverlas a cargar, con lo que el programa se 
ejecutará con los gráficos alterados. 
Por último, sólo queda decir que para poder 
disfrutar con esta rutina, únicamente deberéis copiar 
el listado Basic, además del listado ensamblador, que 
aparece al final del artículo. 
Aquellos que lo deseen pueden teclear el cargador 
Basic. y una vez ejecutado sin errores, salvar el código 
objeto de la forma que se indica: 
SA VE"MIRBIN" ,B,lOOO,6S0 


- 


. 


.. 



 



 


Para cargar el programa en memoria, únicamente 
deberemos ejecutar el programa Basic, el cual cargará 
el Código Máquina e inicializará el programa. 



Gráficos por 
ORDENAD 


1410 LD A, (ALTO> 
1420 LD E,A 
1430 BUSUM: ADD HL,DE 
1440 DJNZ BUSUM 
1450 LD (LONG> , HL 
1460 PUSH HL 
1470 LD HL,#OE18 
1480 CALL #BB75 
1490 POP HL 
1500 CALL PlNUM 
1510 LD A, (ALTO> 
1520 SRL A 
1530 SRL A 
1540 SRL A 
1550 PUSH AF 
1560 LD HL,#OE19 
1570 CALL #BB75 
1580 POP AF 
1590 CALL PlNUl 
1600 LD Al "XII 
1610 CALL #BB5A 
1620 LD A, (ANCHO> 
1630 CALL PlNUl 
1640 RET 
1650 GRADUA: CALL #BB18 
1660 LD A,18 
1670 CALL #BBIE 
1680 RET NZ 
1690 LD A,O 
1700 CALL #BBIE 
1710 JR Z,NOTC 
1720 CALL ARRI 
1730 NOTC: LD A,2 
1.740 CALL #BBIE 
1750 JR Z,NOTCl 
1760 CALL ABAJ 
1770 NOTCl : LD A,8 
1780 CALL #BBIE 
1790 JR Z,NOTC2 
1800 CALL LEFT 
1810 NOTC2: LD A,l 
1820 CALL #BB1E 
1830 JR Z,GRADUA 
1840 CALL RIGHT 
1850 JR GRADUA 
1860 ARRI: LD A, (ALTO> 
1870 ADD A,8 
1880 CP 208 
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OR 


1890 
1900 
1
10 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 ¡ 
2230 
2240 


ABAJ: 


LEFT: 


RIGHT: 


REPON: 


CLS: 


2420 
2430 
2440 
2450 
2460 MIL' 
2470 . 
2480 
2490 
2500 
2510 CIEN- 
2520 . 
2530 
2540 
2550 
2560 DIEZ: 
2570 
2580 
2590 
2600 
2610 
2620 
2630 PRINT. 
2640 . 
2650 
2660 
2670 PASo 
2680 
2690 
2700 
2710 PITEX. 
2720 . 
2730 
2740 PIOOl: 
2750 
2760 
2770 
2780 
2790 
2800 
2810 TEXTOS: 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 TXTl' 
2930 . 
2940 TXT2. 
2950 . 
2960 TXT3' 
2970 - 
2980 *L+ 
2990 DIRJmM_ 
3000 LONG' - 
/3010 ALTO; 
V;,020 ANCHO' 
,\° 30 'ODO. . 


RET 
LD 
GAl.L 
RET 
LD 
SUB 
CP 
RET 
LD 
CALL 
RET 
LD 
DEC 
CP 
RET 
LD 
CALL 
RET 
LD 
INC 
CP 
RET 
LD 
CALL 
RET 
CALL 
CALL 
JP 


Z 
(ALTO>, A 
R8PQIr 


A, (ALTO> 
8 
O 
Z 
(ALTO>, A 
REPON 


A, (ANCHO> 
A 
O 
Z 
(ANCHO> , A 
REPON 


A, (ANCHO> 
A 
81 
Z 
(ANCHO> , A 
REPON 


#BC14 
PINTA 
TEXTOS 


LD (MODO>, A 
CALL #BCOE 
JP TEXTOS 


, 
; I MPR I ME NUMEROS 
DECIMALES 


2250 ; 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
12380 
1 2390 
12400 
1 2410 


PINU1: LD L,A 
LD H,O 
INC HL 
SCF 
LD A,47 
LD DE ,10 
CALL DIEZ 
RET 


r-- 


, 
PINUM: 


DMIL: 


SCF 
LD 
INC 
LD 
INC 


DE,10000 
HL 
A,47 
A 


. 
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DEFS 2 
DEFS 2 
DEFS 1 
DEFS 1 
DEFS 1 


SBC HL,DE 
JR NC, DMIL 
CALL PRIlIT 
LD DE 10 0 
IlIC A' O 
SBC HL.DE 
JR NC, MIL 
CALL PRINT 
LD DE,100 
INC A 
SBC HL,DE 
JR NC,CIEN 
CALL PRIHT 
LD DE ,10 
IHC A 
SBC HL,DE 
JR NC,DIEZ 
CALL PRINT 
ADD A,L 
CALL PRINT 
RET 
CALL #BB5A 
LD A,47 
JR NZ,PAS 
IHC HL 
ADD HL,DE 
INe HL 
RET 


PUSH DE 
CALL #BB75 
POP DE 
LD A, (DE> 
CP 255 
RET Z 
CALL #BB5A 
INC DE 
JR PIOOl 


t
 HL, #0117 
DE, TXTl 
CALL PITEX 
fg HL, #0118 
DE, TXT2 
CALL P ITEX 
t
 HL,#0119 
DE, TXT3 
JP PITEX 


DEFM "DI RE 
DEF CCION." 
B 255 . 
D D E EFM "LONG ITUD. " 
FB 255 . 
DEFM "AL TO 
DEFB 255 X ANCHO:" 


I 
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El deporte del boxeo es 
probablemente el más 
medroso juego de contacto 
practicado hoy en día. Ejerce 
una influencia extraña, 
muchas veces de fascinaciÓn 
sádica, en bastantes de sus 
seguidores. 
Combina la forma física, 
fuerza, coraje y 
entrenamiento para producir 
un deporte extremadamente 
excitante. 
Ahora podemos 
experimentar el furioso 
deporte del boxeo sin poner 
en juego nuestra integridad 
física con Frank Bruno, uno 
de los más grandes 
boxeadores del mundo. 
El objetivo del juego 
consiste en defenderse frente 
a ocho boxeadores de forma 
sucesiva, cada uno de ellos 
los más famosos del mundo. 
Los estilos de lucha de 
cada uno de los boxeadores 
son diferentes. Cada púgil es 
un individuo más inteligente 
y peligroso que el anterior. 
Los boxeadores con que 
sucesivamente nos 
enfrentaremos, son los 
siguientes: 
1. El canadiense: posee la 
apariencia de un oso gris y la 
fuerza de un elefante. 
2. Fling Long Chop: de 
nacionalidad japonesa, 
domina las artes marciales. 
3. Andra Puncheredov: es 
tan rápido, que se te sube a 
la cabeza antes que una copa 
de vodka. 
4. El indígena africano: 
plantea más problemas que 
ningún otro. Tiene un 
temperamento que saca las 
mayores posibilidades que 
poseemos. 
5. El francés Frenchi: 
puede parecer que es muy 
frío, suave y sofisticado, pero 
esta falsa fachada esconde 
una amenaza permanente, 


fIi 


C 1}.\
p'f,O ;nfomaÓón completa de 
cómo se desarrolla el juego y 
d la otra mitad se trata de una 
e .iI?agen en perspectiva del 
SOFTWARE nng . 
. 
PCW KNIFE 
de Ofites Informática 
P. V.P.: 8.848 ptas. 


listo para hacernos ver las 
estrellas. 
6. Raviolly Mafiosi: no es 
un hombre para meterse con 
él. Se sabe todos los trucos 
sucios y los utiliza sin ningún 
remordimiento. 
7. El australiano Andy: se 
alimenta con una dieta de 
perro muerto de hambre. No 
siente ninguna lástima por su 
contrincante y no para de 
golpear. 
8. Peter el peifeclo: es de 
nacionalidad estadounidense, 
se trata del mundialmente 
famoso campeón del mundo, 
el más completo boxeador de 
la historia. Un contrincante 
de suma preparación con el 
que Bruno tendrá que 
utilizar todas sus habilidades 
para poder superarle. 
Para defenderse del 
oponente, Bruno debe 
conseguir darle un golpe 
decisivo y derribarlo. 
Trataremos de anular los 
golpes recibidos por el 
oponente y golpearle cuando 
su cuerpo o cabeza estén 
desprotegidos. Realizando 
fantásticos golpes repetidos, 
aumentarán los poderes 
pujilíst; ::os de Bruno. 
El indicador de K. O., se 
hace intermitente cuando el 
100 por cien de los golpes 
asestados por Bruno recaen 
en su oponente. Esto le 
permite dar un gancho con la 
derecha y, finalmente, 
propinarle un fuerte golpe de 
abajo arriba. 
La pantalla de juego se 
divide en dos partes. La 
mitad superior ofrece una 


El Knife es un completo editor 
de sectores y modificador de 
ficheros, que le permitirá buscar 
y modificar información (byte s 
y caracteres) en cualquier lugar 
del disco. 
La utilidad de la aplicación 
consiste en recuperar ficheros 
borrados, captar discos sector a 
sector, cambiar sectores de 
posición dentro del disco, 
comprender mejor la 
información presente en los 
directorios del disco, así como 
proteger nuestros discos contra 
la cOpia. Esta última posibilidad 
consiste en dañar las pistas de 
manera que el sistema no pueda 
leerlas. 
De modo diferente a otros 
programas similares, viene en 
dos partes diferentes para dos 
necesidades distintas: 
- Knife: se utiliza para 
modificar un fichero individual 
o aprender sobre la estructura 
del disco de CP/M y la forma 
en que se almacenan los 
ficheros en el disco. 
- Knife 2: está dirigido para 
aquellos usuarios que precisen 
realizar modificaciones más 
radicales o deseen realizar 
cualquier operación 
rápidamente. Resumiendo, es 
una opción más potente pero 
menos «amistosa". 
A. Comenzando con el 
Knife: 
Tanto el Knife como el Knife 
2 están incluidos en el mismo 
disco, pero necesitan el CP/M 
2.2 para arrancar. Una vez que 
hemos introducido el disco 
aparecerá en la porción superior 
de la pantalla un menú, con las 
siguientes opciones: 
1. Almacén de ficheros en CPIM: 
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Es importante para que el 
programa sea realmente útil el 
completo conocimiento de la 
manera en que el CP/M 
almacena los ficheros en los 
discos para el Amstrad, 
Los discos del Amstrad son 
formateados para tener nueve 
sectores de 512 bytes por pista, 
y como tiene cuarenta pistas, 
tenemos que cada cara de un 
disco puede almacenar 184.320 
bytes, es decir, 180 K. 
Las pistas se numeran del O 
al 39, mientras que los sectores 
van del 65 al 73. Sin embargo, 
el sistema CP/M utiliza sectores 
de 128 bytes más conocidos 
como requisitos o sectores lógicos. 
Éstos son los que saca el Knife 
en la pantalla. 
Sin embargo, el Knife 2 hace 
exactamente lo contrario, y se 
refiere siempre a sectores 
«físicos", es decir, agrupando 
consecutivamente cuatro 
sectores lógicos. 
Los bloques son grupos de 
registros pertenecientes al 
mismo fichero. En el Amstrad 
hay ocho registros por bloque y 
cada bloque ocupa dos sectores 
físicos con la numeración 
continua. Los ficheros siempre 
ocupan un número entero de 
bloques. 
El directorio del disco ocupa 
el bloque O y guarda un registro 
con todos los ficheros del disco 
y la dirección en la que pueden 
ser encontrados. 
Cada entrada de directorio 
hace referencia sólo a dieciséis 
bloques (extensión). Si el 
fichero es demasiado largo para 
ser guardado en una extensión, 
el CP/M abre otra para él, 
creando una entrada de 
directorio idéntica. Estas 
extensiones no aparecerán 
necesariamente en relación con 
el directorio. Todo depende de 
dónde esté el espacio libre. 
Se almacenan en bits no 
usados, datos como si el fichero 
estuviera colocado en los accesos 
de leer/escribir o en los de sólo 
leer, o si es un fichero directorio 
del sistema. 
2. Otros formatos de disco en el 
Amstrad: 


,
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SOFTWARE 
PCW 


Además del formato del 
sistema discutido anteriormente, 
está el formato sólo para datos 
que es igual, salvo que no hay 
pistas reservadas y que los 
sectores se numeran del 193 al 
20l. 
El otro es el formato rBM, 
diseñado para ser compatible 
con los sistemas CP/M-86 
utilizados en el rBM PC, con 
ocho sectores por pista, 
numerados del uno al ocho y 
una pista reservada. 
3. Examinar un disco: 
Esta opción permite avanzar 
o retroceder por las pistas y 
sectores del disco, copiar los 
registros por impresora, alterar 
el contenido de un sector, o 
buscar un patrón o cadena de 
texto en un disco. 
4. Mirar un fichero: 
El manejo de esta opción es 
similar a la anterior. Primero el 
programa nos da la oportunidad 
de seleccionar un área de 
usuario nueva, de forma que los 
registros del fichero se presenten 
en secuencia. Con ello, el 
usuario podrá utilizar las 
opciones descritas anteriormente 
para examinar su contenido. 
5. Recuperación de un fichero: 
Para restablecer un fichero 
borrado es preciso que en el 
disco no se escriban otros datos 
tras la utilización del comando 
ERA. 
Es decir, que el CP/M,no 
borra los sectores que ocupan 
los ficheros, sino que avisa en el 
directorio de que esos sectores 
están libres para ser utilizados. 
Por lo tanto, con un 
conocimiento suficiente del 
funcionamiento de dichos 
directorios y el Knife que 


permite la lectura y 
modificación de sus bytes, 
pueden restaurarse ficheros 
borrados con anterioridad. 
B. Knife 2: 
Es un editor de discos 
alternativo al KNIFE que nos 
ofrece diferentes facilidades que 
nos acercan a la idea de una 
forma completamente diferente. 
Los dos programas se 
complementan entre ellos, pero 
como ya hemos dicho 
anteriormente, la principal 
diferencia entre ellos estriba en 
que el Knife 2 siempre se refiere 
a sectores físicos (es decir, de 
512 bytes), en vez de a los 
sectores lógicos del CP/M. 
1. Examinar un disco: 
Cuando se ha seleccionado un 
disco satisfactoriamente, se 
visualizarán los 256 bytes del 
primer sector en la primera 
pista del disco. 
En primer lugar se visualiza 
su numeración hexadecimal. A 
continuación la representación, 
también hexadecimal, del 
contenido de los dieciséis bytes, 
y después las ASCII 
( caracteres), que son 
representaciones de cada uno de 
los bytes. Dicha representación 
aparecerá en pantalla siempre 
que sean caracteres 
imprevisibles, es decir, con un 
código de valor mayor que 32. 
Si no, aparece en su lugar un 
punto. 
En este momento podrá 
alterar los bytes visualizados, 
pasar a la segunda mitad del 
sector o acceder a los 
comandos. 
2. Alteración de bytes: 
Basta con escribir el nuevo 
valor cuando el cursor está 
encima de la representación 
hexadecimal del byte a alterar, 
o de su representación ASCII. 
Las modificaciones no quedan 
escritas en el disco hasta usar la 
opción sector escribir, por lo que 
puede practicar un poco con el 
sistema hasta que se acostumbre 
a él, sin miedo a causar un 
daño irreparable. 
3. Movimiento por los sectores: 
El programa tiene opciones 
de avanzar y retroceder por 
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sectores y pistas. Se puede 
pasar directamente del primer 
sector o pista al último y 
VIceversa. 
Presionando COPIA se 
visualiza la otra mitad del 
sector sin afectar a nada más. 
4. Búsqueda de una cadena: 
Produce una petición en la 
parte inferior de la pantalla. En 
esta pregunta deben ser escritos 
hasta un número de ochenta 
caracteres. Entonces, el 
programa comienza a buscar la 
cadena desde el sector en el que 
se ha pedido, hasta que la 
encuentre. 
Cuando encuentra la cadena, 
el sector y la pista en que ha 
ocurrido esto, se convierten en 
los actuales, apareciendo en la 
pantalla. Si la cadena no se 
encuentra aparecerá un mensaje 
de aviso. 
5. Búsqueda de una secuencia de 
bytes: 
Esta opción es similar a la 
anterior, pero en este caso hay 
que introducir hasta ochenta 
bytes, con los valores entre O y 
255. 
El programa supone que cada 
byte debe ser introducido en 
hexadecimal, precediéndolo con 
un carácter PT. 
6. Escribir sector para dar la 
posición: 
El interés de esta opción 
consiste en escribir el sector 
editado anteriormente en 
cualquier posición del disco. 
El programa nos pide una 
pista y sector nuevos, donde 
escribe el sector (de 512 by te s) 
en esa posición del disco. 
Los usuarios sin experiencia 
tendrán que tener mucho 
cuidado con esta orden, porque 
es muy fácil dañar el contenido 
del disco si el sector ha sido 
escrito en una posición no 
deseada. 
Así mismo, otra aplicación de 
la presente opción consiste en 
copiar discos sector a sector, si 
bien, ello no es recomendable 
para «piratear» debido a la 
lentitud del proceso. 
7. Seleccionar un sector nuevo: 
Presionando esta opción, el 
ordenador nos pedirá un nuevo 
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número de sector para ser 
editado. 
Solamente nos permite 
seleccionar sectores en la pista 
actual. 
8 Seleccionar una pista nueva: 
Es igual a la anterior, sólo 
que esta vez nos pide el número 
de pista. 
Esta orden no altera el 
número del sector actual de la 
pista. 
9. Volver a escribir el sector: 
Escribe de nuevo los 512 
bytes que han sido editados, y 
los coloca en la posición de 
origen del sector una vez que lo 
hemos modificado. 


CONTABILIDAD 
E.O.S. 


de Leo Computer 
P.V.P.: 16.250 ptas. 
Leas Eos está pensado para 
llevar la coótabilidad de 
pequeñas empresas? 
profesiones liberales o 
usuarios en general. 
Es un programa realizado 
en CP/M 3.0 dirigido a 
aquellas personas que en 
cualquier momento deseen 
conocer su situación 
económica, así como una 
previsión de cobros y pagos. 
1. Características: 
· Número máximo de 
cuentas: mil cuentas. 
· Número mínimo de 
apuntes en PCW 8256: 1.900 
apuntes. 
· Número mínimo de 
apuntes en PCW 8512: 
10.000 apuntes. 
Permite en su proceso de 
instalación definir la posible 
utilización de una segunda 
Impresora. 
2. Opciones: 
· Previsión de 
vencimientos de apuntes, 
bien para pago o cobro. 
· Clasificar 
automáticamente por fechas 
los apuntes introducidos. 


· Emitir extractos de una 
o varias cuentas por fechas, 
dando los totales de entradas, 
salidas y saldos. 
· Balance de sumas y 
saldos. 
3, Listados del programa: 
· Listado del Plan 
Contable. 
· Listado del Libro 
Diario. 
· Listado de apuntes de la 
cuenta. 
· Listado de apuntes por 
periodos. 
· Listado de sumas y 
saldos. 
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Listín telefónico 


Como pwmetimo, la ,em""a p"ada, aqui 
está la segunda y última parte del listado de este 
programa para el PCW, el cual nos hemos visto 
obligados a fraccionar dada su excesiva longitud, 
con idea de facilitar al máximo su tecleo a 
nuestros lectores. Nunca dejará de sorprendernos 
la increíble variedad de aplicaciones que los 
usuarios de la, según Amstrad, «máquina de 
escribir» son capaces de encontrar para su 


(y 11) 


ordenador. En cuanto al viejo argumento de que 
se tarda mucho menos en encontrar un número 
telefónico en una agenda que en un ordenador, 
bien, es cierto hasta un cierto número de 
teléfonos. ¿Se imaginan ustedes a Información de 
la provecta Telefónica diciendo: «Un momento, 
V oy a mirar la agenda. Mientras espera, le 
ofrecemos esta saladísima conferencia explicando 
el porqué de los monopolios»? ¿Eh? 


360 16t,r
$="CcNn"; GOSUB 1050: IF respuest,
=3 OR respuest,a=4 THEN fichas=O; RETURN 
370 GOSUB 1030:GOTO 330 


380 REM 


............. leer fichas ........... 


390 PRINT FNat$(29,0)"Leyendo el listin telefonico. Por favor, espere. 
" 


400 OPEN "I",1,"telefono.sec" 
410 fichas=O 
420 WHILE NOT(EOF(1» 
430 fichas=fichas+1 
440 INPUT R1,nombre$(fichas),telefono$(fichas),direccion$(fichas),pref$(fichas) 
450 WEND 
460 CLOSE 1 
470 RETURN 


480 REM 


.......... buscar ......... 


490 sw=O 
500 PRINT FNat$(2,68)" OPCION (B) BUSCAR" 
510 IF fichas=O THEN PRINT FNat$(29,O)"¡El listin telefonico esta vacio!"¡STRING 
$(45," "):RETURN 
520 PRINT¡inv$¡FNat$(29,O)"Para salir........ < RETURN )"¡TAB(80)¡norvi$¡FNat$(3 
,4)"Nombre. ." ¡ FNat$ (4,13) ¡ STRING$ (30," _") ¡ 
530 PRINT FNat$(4,13)¡ : INPUT")" ¡busca$ 
540 busca$=UPPER$(busca$) 
550 IF busca$=.... THEN RETURN 
560 cuenta = 1 
570 a=INSTR(nombre$(cuenta),busca$) 
580 WHILE cuenta <=fichas AND a=O:cuenta cuenta +1:GOTO 570 
590 WEND 
600 IF sw=1 AND cuenta)fichas THEN dato=O: RETURN 
610 IF cuenta) fichas THEN PRINT pit$¡inv$¡FNat$(4,25)¡"No encuentro "¡busca$¡r. 
orvi$:RETURN 
620 dato =dato+1:IF dato)22 THEN sw=O:dato=O:GOSUB 1160:FOR j=3 TO 26:PRINT FNat 
$(j,O)¡STRING$(90," "):NEXT ELSE PRINT FNat$(dato+5, 
O)¡nombre$(cuenta)¡" CI "¡direccion$(cuenta):sw=1 
630 PRINT FNat$ (dato+5, 78)" ("pref$(cuenta)¡") ..¡telefono$(cuenta):cuenta=cuenta-t 
1:GOTO 570 
640 dato=O:RETURN 


650 REM . . . afiadlr ficha . . . . 


660 PRINT inv$¡FNat$(2,0)"Fichas"fichas¡norvi$:PRINT FNat$(2,68)" OPCION (A) AftA 
DIR " 
670 PRINT inv$¡FNat$(29,0)"Solo 35 caracteres. Para salir < RETURN )"¡norvi$ 
680 PRINT FNat$(4,13) STRING$(35," ") 
690 PRINT FNat$(6,14) STRING$(50," ") 
700 PRINT FNat$(8,14) STRING$<10," ") 
710 PRINT FNat$<10, 14)¡STRING$(5," ") 
720 PRINT FNat$(4, 13) STRING$(35,"_") 
730 PRINT FNat$(4,4)"Nombre. ."¡:INPUT")"¡nombre$ 
740 nombre$= UPPER$(nombre$) 
750 IF nombre$="" THEN RETURN 
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760 PRINT FNat$(6.4) STRING$(50,"_")¡FNat$(6,4)¡"Direccion.";: INPUT direccion$ 
770 direccion$= UPPER$(direccion$) 
780 IF direccion$=.... THEN RETURN 
790 PRINT FNat$(8, 4) STRING$(17."_")¡ FNat$(8,4)"Telefono. ...;: INPUT;telefono$ 
800 IF telefono$=.... THEN RETURN 
810 PRINT FNat$(10,4)"Prefijo. .___";FNat$(10,14)¡: INPUT pref$ 
820 IF pref$=.... THEN RETURN 
830 pref$(fichas)=pref$ 
840 fichas=fichas+1 
850 nombre$(fichas)=nombre$ 
860 direccio!$(fichas)=direccion$ 
870 telefono$(fichas)=telefono$ 
880 pref$(fichas)=pref$ 
590 fichero.c
mbi
do=verd
d8ro 
900 PRINT inv$¡FNat$(29.0)"Esta bien asi (SIN).. . Terminar (F)in 
";:letra$="SsNnFf":GOSUB 1080 
910 ON respuesta GOTO 650,650,920,920.970,970 
920 ficha = ficha-1:GOTO 650 
930 GOTO 900 
940 RETURN 


950 REM 


_ _ _ escribir fichero _ _ _ 


960 PRINT FNat$(28,O)"Escribiendo el listin telefonico. Por favor. espere un mom 
ento solamente. 
9700PEN"0".1."telefono.sec" 
980 FOR cuenta=l TO fichas 
990 WRITE R1,nombre$(cuenta).telefono$(cuenta).direccion$(cuenta).pref${cuenta) 
1000 NEXT 
1010 CLOSE 1 
1020 RETURN 


1030 REM 


_ _ _ cambio de disco - _ _ 


1040 RESET 
1050 PRINT FN
t$(29,0)"Pong
 el disco donde tiene el listin telefonico y pulse R 
ETURN'.' . a$ 
1060 WHILE INKEY$=....: WEND 
1070 RETURN 


1080 REM 


_ _ leer tecla _ - 


1090 respuesta$=INKEY$ 
1100 WHILE respuesta$=.... 
1110 respuesta$=INKEY$ 
1120 WEND 
1130 respuesta=INSTR(letra$,respuesta$) 
1140 IF respuesta=O THEN GOTO 1090 
1,150 RETURN 


1160 REM 


_ _ _ esperar por tecla _ . - - 


1170 PRINT inv$;FNat$(28,O);STRING$(90." ");FNat$(29.0);"Pulse cualquier tecla p 
. ara continuar";FNat$(27.0)¡norvi$ 
1180 WHILE INKEY$=.... 
1190 WEND 
1200 RETURN 


" 


1210 REM 


____ Pasar el listin a la impresora ..-. 


1220 opci$= "%%%%%%%%%%%. . . . . 
%%%%%'%%%%'%%tt 
1230 PRINT inv$;borra$:PRINT opci$;norvi$ 
1240 PRINT FNat$ <10,30)" (1). . . . . . . Pantalla e IMPRESORA .. i FNat$ (12, 30 
);"{P)...... .Solo en PANTALLA ti 
1250 letra$="IiPp":GOSUB 1080:impr = respuesta 
1260 PRINT FNat$(3.30)"S U B M E N U LIS T A D O" 
1270 PRINT FNat$<10.30)''(N)' ,...Ordenado por NOMBRES";FNat$<12,30)"(A). .C 
rdenado por APELLIDOS" 
1280 PRINT FNat$(16.30)"Elige.. .pulsa... (A IN)" 
1290 letra$="NnAa":GOSUB 1080:salto=respuesta 
1300 ON salto GOSUB 1730,1730.1790.1790 
1310 PRINT borra$; FNat$(0.34)"LISTIN por ";nota$ 
 


O P C ION (1) 
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1320 IF impr=3 OR impr=4 THEN 1340 
1330 LPRINT:LPRINT FNat$(0,34)"LISTIN par "¡nota$:LPRINT:LPRINT 
1340 ff=l:FOR f=1 TO fichas 
1350. pUJlt.= T.F.
 _( nnmhn =$_LU) 
1360 PRINT FNoat1l:, (f'l, O) ¡ STRING1I:, (90;"."); FNat$ <ff+1, O)nombre$ (f) ¡ FNat$ (ff+1, 32) ¡ di 
reccion$(f)¡FNat$(ff+1,76)"("¡pref$(f)¡")"¡ 
1370 PRINT FNat$(ff+1.82)telefono$(f) 
1350 IF impr=3 OR tmpr=4 THEN 1400 
1390 LPRINT CHR$(l,5)¡CHR$(27)"4"¡ nombre$(f)" "¡direccion$(f)" ..¡pref$(f)....¡ 
telefono$(f) 
1400 ff=ff+1 
1410 IF ff)=28 THEN GOSUB 1160:ff=0:PRINT borra$ 
1420 NEXT 
1430 GOSUB 1160:GOTO 80 


1440 REM 


..... modificar fichas ......... 


1450 gesto=O:PRINT FNat$(2,68)" OPCION (M) MODIFI .. 
1460 PRINT inv$¡FNat$(28,0)" <EXTRA)+<H)+<RETURN) para AYUDA Dejar las 
datas cama estan < RETURN ) "¡norvi$ 
1465 PRINT FNat$(4,29)¡STRING$(60," ") 
1470 PRINT FNat$(4.22)"Nombre. ."¡ 
1480 PRINT FNat$(4.31)¡ : INPUT")" ¡busca$ 
1490 busca$=UPPER$(busca$) 
1500 IF busca$="" THEN RETURN 
1510 IF busca$=CHR$(253) THEN GOSUB 1960: IF nata =1 THEN 80 
1520 IF gesto=l THEN GOTO 1570 
1530 FOR f=l TO fichas 
1540 IF LEFT$(busca$. 15)=LEFT$(nombre$(f), 15)THEN 1570 
1550 NEXT 
1560 IF f>fichas THEN PRINT FNat$(4,50)"NO HE ENCONTRADO "busca$:PRINT CHR$(7):F 
OR f=l TO 20:PRINT pit$: NEXT:GOTO 1440 
1570 PRINT FNat$(6,10)"ficha antigua .-"¡FNat$(8.0)nombre$(f)¡FNat$(8.35)"C/ "di 
reccion$(f);FNat$(8.77)"("pref$(f)") .. 
1580 PRINT FNat$(8,83)telefono$(f) 
1590 PRINT FNat$(10,10)"Introduce la nueva ficha"¡FNat$(12,22)"Nombre.-";: INPUT 
nomb$:nomb$=UPPER$(nomb$) 
1600 IF nomb$=.... THEN PRINT FNat$<12,32) nombre$(f):nomb$=nombre$(f) 
1610 PRINT FNat$<l4,22)"domicilio"¡: INPUT domi$:domi$=UPPER$(domi$) 
1620 IF domi$=.... THEN PRINT FNat$(14.33) direccion$(f): domi$=direccion$(f) 
1630 PRINT FNat$ <16, 22)"prefij a" ¡ : INPUT prf$: prf$=UPPER$ (prf$): IF prf$=.... THEN P 
RINT FNat$(16,32)pref$(f): prf$=pref$(f) 
1640 PRINT FNat$(18,22)"Telefond'¡: INPUT telef$:telef$=UPPER$(telef$):IF telef$= 
....THEN PRINT FNat$(18,32) telefono$(f): telef$=telef 
ono$(f) 
1650 nombre$(f)=nomb$:telefono$(f)=telef$:direccion$(f)=domi$:pref$(f)=prf$ 
1660 PRINT FNat$(20.1>"Ficha modificada '¡FNat$(22,0)nombre$(f)" C/":PRINT FN 
at$(22.35)direccion$(f)¡FNat$<22,77)"<"; 
1670 PRINT FNat$(22.78)pref$(f)")."¡FNat$(22,83)telefono$(f) 
1680 PRINT inv$¡FNat$<26.22)"Modificacion correcta (S/N)"¡norvi$¡ :letra$="SsNn": 
GOSUB 1080 
1690 ON respuesta GOTO 1710,1710,1440.1440 
1700 IF INKEY$="N" OR INKEY$="n" THEN 1440 
1710 IF nota=l THEN 80 
1720 GOSUB 970:GOTO 80 


1730 REM 


.... 


ordenar por nombres .... 


1740 PRINT borra$"Ordenando por nombres. .espera un momento par favor 
":PRINT:PRINT 
1750 FOR f=l TO fichas-1 
1760 IF nombre$(f»pombre$(f+1) THEN SWAP nombre$(f+1),nombre$(f):SWAP telefono$ 
(f+1),telefono$(f):SWAP direccion$(f+1).direccion$(f 
):SWAP pref$(f+1),pref$(f):leo=1 
1770 NEXT f: IF leo=l THEN leo=O:GOTO 1750 
1780 nota$="NOMBRES":RETURN 
1790 REM ..... Drdenar por apellidos. . . . . 


1800 PRINT borra$¡"Ordenando por apellidas.. 
r":PRINT:PRINT 
1810 FOR f=l TO fichas-1 
1820 10ng=LEN (nombre$(f»:10ng1=LEN (nombre$(f+1) 


.espera un momento por favo 
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1830 sitio=INSTR(nombre$(f)," "):sitio1=INSTR(nombre$(f+1)," ") 
1540 IF MID$(nombre$(f),sitio+1,long-siti+1»MID$(nombre$(f+1),siti01+1.1ong1-si 
tio1+1) THEN SWAP nombre$(f+1),nombre$(f):SWAP telef 
ono$(f+1),telefono$(f):leo=1 ELSE GOTO 1860 
18
0 SWAP direccion$(f+1),direccion$(f):SWAP pref$(f+1),pref$(f) 
1860 NEXT:IF leo=l THEN leo=O:GOTO 1810 


1870 FOR f=l TO fichas-1 
1880 10ng=LEN (nombre$(f»:10ng1=LEN (nombre$(f+1» 
1890 sitio=INSTR(nombre$(f)," "):sitio1=INSTR(nombre$(f+1)," ") 
1900 IF MID$(nombre$(f),sitio+1,long-siti+1)=MID$(nombre$(f+1),sitio1+1,long1-si 
ti01+1) AND LEFT$(nombre$(f),sitio»LEFT$(nombre$(f+ 
1),sitio1) THEN SWAP nombre$(f+1),nombre$(f):SWAP telefono$(f+1),telefono$(f):le 
0=1 ELSE GOTO 1920 
1910 SWAP direccion$(f+1) ,direccion$(f): SWAP pref$(f+1),pref$(f) 
1920 NEXT:IF leo=l THEN leo=O:GOTO 1810 
1930 nota$="APELLIDOS":RETURN 
1940 PRINT MID$(nombre$(f),sitio+1,long-sitio+1),MID$(nombre$(f+1),sitio+1,long- 
sitio+1) 
1950 IF INKEY$=''''THEN 1950 


1960 REM 


........ subrutina de ayuda .......... 


1970 PRINT inv$ FNat$(28,0)j" 
a .... < C ) 


Cuando encuentres la ficha que buscas puls 
.. 


1980 nota =O:FOR f =1 TO fichas 
1990 PRINT inv$jFNat$(4,33)¡fj" "¡ nombre$(f)jnorvi$ 
2000 ink$=INKEY$:WHILE ink$=.... 
2010 ink$=INKEY$: WEND 
2020 IF ink$="c" OR ink$="C" THEN gesto=l: RETURN 
2030 PRINT FNat$(4,33)¡STRING$(40," "):NEXT 
2040 nota =l:RETURN 
2050 fichero.cambiado=verdadero:RETURN 
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Con el fin de acelerar lo más posible el correo, y poder resolver o contestar a 
todas las dudas y sugerencias que llegan a nuestra redacción, a partir de esta semana 
os rogamos, en beneficio de todos, consignar en el sobre, en lugar bien visible. una 
de las denominaciones siguientes: 



 


- Suscripciones AMSTRAD. Para todos aqudos casos relacionados con petición 
de cintas, números atrasados, formalización de suscripciones, devoluciones, etc... 
- Mercado Común AMSTRAD. Compras, ventas, intercambios, clubs... 
- Serie Oro AMSTRAD. Para los programas que nos enviéis para su 
publicación. 
- Sugerencias AMSTRAD. Para vuestras críticas, sugerencias lJ cualquier 
opinión que queráis venir sobre la revista. 
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Es necesario reVIsar 
los listados con 
atención 


Tengo un CPC 6128. 
Leyendo una de vuestras 
revistas, exactamente la número 
74, me decidí a teclear el 
programa que se publicaba en 
la Serie Oro. Este programa es 
lce-Front, Resulta que después 
de haberlo tecleado cuesta 
mover a Bob. Además, cuando 
se acaban las vidas o pasa un 
tiempo determinado y la 
pantalla se borra, aparece 
inmediatamente o Bob en e! hielo 
o Bob en sandwich, tras lo cual 
aparece: 
Syntax error in 1540 
1540 data 3e, 01, 21, 00, 8c, 
11, aO, 00, 19, 3d, fe, 00, 20, 
fa, 11, 60, 9a, 01, aO, 00, ed, 
aO, e2, f8, 9b, c3, m, 9b, c9. 
Yo, la verdad, no sé dónde se 
encuentra el error y 
preguntándoles a algunos 
amigos, ellos tampoco lo saben, 
Así pues, os agradeceríamos que 
nos dijeseis dónde se encuentra 
el fallo, ya que no conseguimos 
verlo. 
J. Enrique García Prieto 
Lam£Tltablemente, con los datos 
que nos da no es posible decir 
concretaTl1£nte dónde está e! error, ya 
que la línea de listado que nos envía 
está correcta, Creemos que puede 
haber pasado lo siguiente: e! 
"despiste" se encuentra en otra parte 
comPletamente distinta de! programa, 
pero en la zona de las datas de! 
Código Máquina, Ocurre que e! 
Amstrad, al intentar ejecutar una 
subrutina en máquina que contiene 
un error, "enloqwxe" y actúa de 
forma impredecible. Da la casualidad 
de que lo que sea que pase afecta al 
propio intérprete de Basic, y da un 
mensaje de error de sintaxis donde no 
existe ninguno, Nos vemos obligados 
a recoTl1£ndarle que repase con 
eSTl1£rada atención el listado, 
especialmente la zona que se rifiere a 
las datas, comprobando con especial 
cuidado que no ha puesto una "o" en 
lugar de un ,,0". 


A vueltas con 
los pokes 


1. Me gustaría saber cómo se 
intr0ducen los pokes para el 
Amstrad, 
2. He observado que en 
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Sin duda 
ALGUNA 


algunos programas comerciales 
en el Amstrad se consiguen 
apreciar más de cuatro colores, 
cosa que a mí me resulta 
imposible, 
Álvaro Sanz Monasterio 
Para introducir los pokes en los 
juegos comerciales, salvo que no estén 
protegidos, necesita un programa 
cargador que normalmente facilitamos 
en la revista cuando se habla de un 
juego con detalle, 
En una consulta de estas mismas 
Páginas encontrará una respuesta más 
detallada, 
Efectivamente, en algunos juegos 
comerciales se ven más de cuatro 
colores en modo 1. Habrá usted 
observado que sólo sucede en 
determinadas zonas de la pantalla, 
El motivo es que los programadores 
engañan al Amstrad haciéndolo creer 
que una parte de la pantalla está en 
modo 1 y otra en un modo distinto. 
ExPlicar concretaTl1£nte e! asunto 
está fuera de! alcance de estas 
Páginas, pero e! m1todo en si recurre 
al uso de rutinas de interrupción; es 
decir, el ordenador conmuta entre dos 
rutinas de color y modo de pantalla 
tan rápidamente que parece que 
ambos modos están simultáneamente 
en e! monitor, 


File not found 


Poseo un Amstrad CPC-464 
con unidad de disco y he 
realizado algún que otro 
programa de acceso a ficheros 
ubicados en este dispositivo, 
encontrándome con el problema 
de que, al no existir dichos 
ficheros, el programa se 
interrumpía dando el mensaje: 
File Not Found. 
De aquí mi pregunta: ¿no 
habría manera de controlar 
dentro de los programas los 


errores de este tipo? (Tal cual lo 
hace el Amstrad 6128.) 
Os he llamado por teléfono 
para preguntaros el tema que os 
explico en el punto anterior, 
pero me indicasteis que era más 
conveniente que os lo planteara 
por escrito, debido a la 
extensión del problema. 
En el manual que se entrega 
con la unidad DD-l en el 
capítulo 5,8 hay un
 relación de 
todos los errores, pero no logro 
entenderlos, Os quedaría 
agradecido que me explicarais 
cómo podría acceder al registro 
A para poder sacar los mensajes 
por pantalla en español; por 
ejemplo, que no está en el 
fichero, o el disco no está en la 
unidad, o error de escritura, 
ete..., y así evitar la rotura del 
programa. 
Otro tema que quiero 
comentaros es el siguiente: 
Tengo un programa Menú 
(que os he enviado para su 
posible publicación), en donde 
una de las líneas del mismo 
enlaza con el procesador de 
textos que en su día 
publicasteis, pero que al 
terminar de utilizar este proceso 
y al intentar volver al menú. da 
un mensaje de MEMOR y 
FULL. 
La consulta que os quiero 
hacer es si hay algún modo de 
evitar que se llene la memoria 
al pasar de nuevo al Menú (sin 
desconectar el ordenador) y si es 
posible que me expliquéis el 
porqué de este mensaje, 
Juan José Ferrer Pérez 
Desgraciadamente, no hay solución 
para su primera pregunta, Amstrad 
omitió tratar los errores de! disco en 
e! 464, incluso aunque usted posea 
una unidad de disco. Por tanto, o se 
olvida de! asunto, o adquiere un 
6128, Lo laTl1£ntarrws mucho. 
Su segunda pregunta tiene una 
respuesta más clara y es, sobre todo, 
positiva, Sucede que nuestro 
procesador de texto y su programa 
Menú no caben simultáneamente en 
la merrwria, Para conseguirlo, debe 
usar la orden CHAIN o CHAIN 
MERGE, cuya sintaxis y uso están 
exPlicadas en e! manual. 
Existe una precaución que debe 
tomar en cualquier caso. Cuando la 
rutina que usted llamó acaba su 
COTl1£tido, es esencial que retorne al 
programa Menú, por lo que hay que 
incluir otra orden CHAIN, que 
invoque al programa principal. 
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Actualidad, pokes, mapas, trucos, 
los mejores juegos y programas para 
SPECTRUM, AMSTRAD, COMMODORE y MSX 
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Todo el universo 
del Software 
mes a mes 
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firmado por NEC y cuenta con 
un tiempo medio de acceso de 
85 mseg.; el controlador ocupa 
la tercera parte del área de la 
tarjeta y es capaz de manejar 
no sólo el disco duro que le 
acompaña, sino también otro, 
que en el caso del PC de 
Amstrad pudiera ser ciel tipo 
externo (de éstos hablaremos 
próximamente en esta sección). 
El segundo problema que 
presenta el compatible de 
Amstrad a la hora de aceptar 
un accesorio es el consumo de 
éste, punto en el que la tarjeta 
Megacard no abusa en absoluto ya 
que resulta muy ahorradora: 
18 W como máximo. 
Su precio, en 
Comercial Nuevos 
Ministerios 
estación Renfe 
de la calle 
Raimundo 
F ernández 
Villaverde, 
es de 
120.000 
ptas. 
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trolador, por lo que \:".. .. '''., 
unlcamente nos va a ocupar ...' ,_\, ,,/' \ 
un slot de los tres que incorpora 
el ordenador. El disco viene 


INFOBYTES 


N O hay dos sin tres 


Los usuarios del Amstrad PC 
1512 con dos unidades de disco, 
quizá se encuentran con las alas 
cortadas a la hora de ampliar su 
equipo con un disco duro. El 
reducido espacio de la unidad 
central del ordenador no da 
opción a más de dos unidades 
de almacenamiento de media 
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Hasta diez discos de 5 1/4 
pulgadas pueden entrar en 
este práctico archivador de 
plástico transparente y 
personalizado con el 
logotipo de Micro 
World, Zurbano, 76, 
Madrid. 
Su precio es de 560 
ptas. y se mantiene la 
caja abierta y de pito 
abatiendo la tapa 
transparent 
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A dos niveles 


La mesa Tableman que os 
presentamos en la fotografía 
viene a solucionar el problema 
del emplazamiento del equipo 
informático en uso doméstico, 
como en oficina. Cuenta con 
dos bandejas. La superior, a una 
altura sobre el suelo de 79 cm, 
da cabida tanto al monitor 
como a la impresora; la inferior 
es extraíble, para que el 
conjunto ocupe el menor espacio 
cuando no se utiliza, y sostiene 
el teclado del ordenador dejando 
lugar para manejar textos o 
deslizar un ratón. Bajo las 
bandejas, se encuentra una 
rejilla en la que se pueden 
guardar manuales o libros de 
consulta y en un nivel inferior 
una cesta móvil de gran 
capacidad. 
Las dimensiones de la mesa 
son de 102 cm de ancho por 50 
cm de fondo. Su precio es de 
22.300 ptas. en Peek & Poke, 
Génova 11. 28004 Madrid. 
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Más por menos 


Que una impresora para los 
Amstrad CPC cueste 35.000 
ptas. no llama demasiado la 
atención, pero si pasamos a 
describir sus características y 
afinnamos que lleva la etiqueta 
de Seikosha, podríamos decir 
que nadie da más por menos, 
Por descontado, la impresora 
Seikosha SP 180 A cuenta con 
todos los tipos de letra: pica, 
élite, condensada, expandida.... 
alcanzando una velocidad de 
impresión en modo Pica de 100 
caracteres por segundo..., y, 
además, todos estos tipos se 
consiguen también en modo de 
alta calidad (NLQ) con una 
velocidad lógicamente más 
lenta, de 16 caracteres por 
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La que faltaba 
T odo
 aquello
 qm:: LOl1taban 
:t.on un Amstrad PC J) 2 con 
1.1 configurac ión mínima de un 
, lo dis. l pueden <¡altar a la 
:dt. o0rÍa superior con el kit de 
la seg-unda unidad de disco que 
)frere el mismo fabncante 
Amstrad. 
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Se encuentra en Micro 
World, Zurbano 76, de Madrid, 
il precio dt 44.800 ptas. Su 
montaje no ofrect:: la menor 
::Iificultad, quedando alojada en 
el húeco de la izquierda de la 
unidad central y no necesita 
controlador, ya que la misma 
placa principal estaba preparada 
para aceptarlo. Tras su 
instalación, el disco A: pasa a 
ser el nuevo, mientras que el B: 
será el antiguo. 
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segundo, pero con la ventaja de 
que no sólo se obtiene mediante 
códigos de control desde el 
ordenador, sino también pulsando 
una tecla en la misma impresora. 
La admisión del papel se 
efectúa mediante fricción para 
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hojas sueltas y por tracción con 
alimentador pard papel 
continuo. 
La encontraréis en 
Informática Papelería, Pla.la de 
Castilla dF Madrid, junto al 
Asador. 
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Escalera de color 


Cuando se trabaja con prisas, 
localizar un disco de 5 1/4 
pulgadas en un archivador de 
discos negros se parece a 
encontrar una aguja en un 
pajar. Para facilitar las cosas, 
aquí tenemos estos discos de 
colores de la firma Pureflex y 
que podéis encontrar en 
Infonnática Gmtur, Jaime el 
Conquistador 27, Madrid, Te!. 
(91) 474 55 00, al precio de 
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4.000 ptas. la caja de diez 
unidades, 
Cada caja contiene una gama 
de cinco colores con dos discos 
por color, aparte, claro está, de 
etiquetas adhesivas para 
nombrar su contenido. 
De esta manera, con los 
discos de colores iremos a tiro 
hecho para localizar cualquier 
tema. 
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Los precios que acompañan estas fotografías incluyen el 12 % de IV A Y han sido facilitados por los comerciantes 
que se citan, Se ofrecen a título informativo al margen de toda publicidad, plJ£den sufrir variaciones, 
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La aventura 


de Laserbase 


Los juegos de «marcianitos» tienen un no se qué de entrañable que 
los hace revivir periódicamente en las páginas de todas las revistas que 
ofrecen programas a sus lectores. A nosotros nos ha vuelto a ocurrir: nos 
han enviado un buen programa relativo a una vieja idea. Aquí está. 


E 1 escenario de la batalla, porque de una 
guerra en el espacio se trata, nos sitúa en un 
lugar sorprendentemente cercano, cuya existencia 
y ubicación no pertenecen al nebuloso dominio 
de la ciencia-ficción: la Luna, 


U na espantosa catástrofe ha sucedido en el 
Sistema Solar: una raza agresiva y desconocida 
ha ido atacando y destruyendo las colonias 
humanas de los planetas exteriures, 
metódicamente, sin misericordia. Todos los 
intentos de diálogo han sido infructuosos. Los 


Laserbase 
por 
& PA Leybourne 
Amstrad Semanal 


10 REM 
20 REM 
30 REM MK 
40 REM(c) 
50 REM 
60 CALL &BB4E:CALL &BC02 
70 SYMBOL AFTER 256:MEMORY &9FFF:SY 
MBOL AFTER 32:GOTO 280 
80 REM *********** 
90 REM Explosiones 
100 REM ********** 
110 FOR a=l TO 2:CALL &BD19:TAG:PRI 
NT CHR$(245+a); :TAGOFF 
120 MOVER -32,0:TAG:PRINT CHR$(245+ 
a); :TAGOFF 
130 MOVER -32,0:NEXT:RETURN 
140 REM ********************* 
150 REM Rutina de puntuacion 
160 REM ********************* 
170 si=PEEK(&A14B):c=3-si 
180 IF n<243 THEN sc=sc+5*c:GOTO 20 
O 
190 sc=sc+2*c 
200 PEN 2:PAPER 15: LOCA TE 6,24:PRIN 
T sc; 
210 IF pow<O THEN pO
FO 
220 LOCATE 16,24:PRINT CINT(pow)¡ 
230 BORDER 13: IF «la<l) OR <pow<l) 
) THEN 2870 
240 RETURN 
250 REM ********** 
260 REM Inicializa 
270 REM ********** 
280 DEFINT a-z:DEFREAL p 
290 ENT 1,150,15,1:ENT 2,1,1,2,100, 
20,l:ENV 1,5,10,40 
300 GOSUB 2330:REM Titulo 
310 RESTORE 2160: GOSUB 1500:REM Def 
ine Aliens 
320 GOSUB 2480:REM instrucciones 
330 RESTORE 1520:GOSUB 1500:REM Def 
ine caracteres 
340 MODE O:ORIGIN 0,0,0,640,383,48 
350 WINDOW #1, 1,20, 23,25: PAPER #1,1 
5:CLS:CLS#1 
360 INK 8,13,0: INK 9,25,13: INK 10,1 
3: INK 11,26,13 
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370 INK 15,13: INK 0,0: INK 12,1: INK 
13.26: INK 6,11 
380 PAPER O:BORDER 13:SPEED INK 150 
,150 
390 d=-1:1x=96:hx=544:1y=156:hy=240 
400 REM ************************ 
410 REM define strella y torreta 
420 REM ************************ 
430 sc=0:pow=500: 1=1:r=1: la=2: INK 3 
, 6: 1 NK 1, 24 
440 al=10:PAPER O:PEN l:FOR a=2 TO 
21 
450 b=INT(RND*18)+1 
460 LOCA TE b,a:c=!NT(RND*4):d=d+1: 1 
F d=4 THEN d=O 
470 PEN 8+d: IF c=l THEN PRINT CHR$( 
46)¡ ELSE PRINT CHR$(248)¡ 
480 NEXT a 
490 REM ***************** 
500 REM define nave alien 
510 REM ***************** 
520 PRINT CHR$(23)¡CHR$(0) 
530 CALL &A22B:REM dibuja nave 
800 PLOT 288,287,0:DRAWR 96,O:MOVER 
O,-16:DRAWR O,-16:DRAWR -96,O:DRAW 
R O,16:DRAWR 96,0 
810 MOVE 304,324:DRAWR 64, 0,4: MOVER 
O,2:DRAWR -64, O: MOVER O,2:DRAWR 64 
,O 
820 PEN 2:PAPER 15:LOCATE l,24:PRIN 
T"Score"¡ 
830 LOCA TE 11,24: PRINT"Ener. "¡ : GOSU 
B 200:REM Score 
840 PEN 3:PAPER O 
850 LOCA TE 6,22: IF 1 THEN PRINT CHR 
$(239) EL SE PRINT CHR$(229) 
860 LOCA TE 15,22: IF r THEN PRINT CH 
R$(239) EL SE PRINT CHR$(229) 
870 PEN 2:PAPER 15:sx=288:sy=176 
880 nf=l 
890 REM ************ 
900 REM dibuja alien 
910 REM ************ 
920 lau=1:c=INT(RND*3)+10 
930 IF c=11 THEN n=240 ELSE n=243 
940 PRINT CHR$(23)¡CHR$(1)¡ 
950 xp=(c-1)*32:yp=271:CALL &AOOO,x 



alienígenas han contestado que su objetivo final 
es la aniquilación de nuestro planeta madre, por 
quién sabe qué olvidados agravios. 
La batalla no ha sido un camino de rosas para 
ellos. Han sufrido muchas bajas, y se están 
reorganizando para lanzar el ataque final. Sólo 
una cosa puede detenerlos: el complejo defensivo 
Luna SDI, constituido por his últimas reservas de 
material humano y militar del Sistema. 
Los extraños son grandes estrategas, y saben 
que para aniquilar a la Luna y atacar después a 
la Tierra, deben conseguir algo básico, a saber: 
acercarse a la Luna, Sólo se lo impiden las 
baterías de cañones láser de largo alcance que la 
defienden y han decidido intentar destruirlas 
enviando gigantescas naves madres repletas de 
velocísimos cazas. Así, aun a costa de grandes 
bajas, debilitarán lo suficiente el campo de fuerza 
que protege a la Luna y el ejército de reserva 
hará lo demás. 


p,yp,lau,n 
960 CALL &A068,sx,sy,nf,x:nf=0 
970 FOR a=l TO 1000:NEXT:lau=0 
980 REM ******************** 
990 REM rutina de movimiento 
1000 REM ******************** 
1010 b=INT(RND*4):c=INT(RND*4) 
1020 IF b AND 1 THEN d1=-1 EL SE d1= 
1 
1030 IF e AND 1 THEN d2=-1 ELSE d2= 
1 
1040 b=b*16 
1050 xp=xp+4*d1:yp=yp+2*d2 
1060 IF xp)hx THEN xp=hx:d1=-1 
1070 IF xp<lx TREN xp=lx:d1=1 
1080 IF yp>hy THEN yp=hy:d2=-1 
1090 IF yp<ly TREN yp=ly:d2=1 
1100 CALL &AOOO,xp,yp,lau,n:REM mue 
ve alien 
1110 IF yp)160 THEN 1200 
1120 REM ************************** 
* 
1130 REM rutina de disparo del alte 
n 
1140 REM ************************** 
* 
1150 SOUND 130,40,40,15,O,2:CALL &A 
OD2 
1160 IF TESTR(O,-1)=3 TREN 1290:REM 
rutina del laser 
1170 SOUND 129,150,30,15,0,1:S0UND 
132,600,60,4,1,0,8 
1180 MOVER -16,O:GOSUB 110:pow=pow- 
4:REM Explosion 
1190 GOSUB 200:REM Actualiza puntos 
1200 IF INKEY(ee»-l THEN SOUND 129 
,150,30,15,O,l:CALL &AI04,sx,sy, l,r 
:pow=pow-(la*0.25):GOSUB 210 
1210 IF TESTR(O,O)=7 THEN 1410 
1220 sy=sy+2*«INKEY(cc»-1)-(INKEY 
(dd»-l) ) 
1230 sx=sx+4*«INKEY(bb»-1)-(INKEY 
(aa) )-1» 
1240 CALL &A068,sx,sy,nf,x 
1250 b=b-1: IF b=O THEN 1010 ELSE 10 
50 
1260 REM ********************* 
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Ni que decir tiene que los avezados defensores 
de la Tierra son los de más rápidos reflejos del 
planeta, y sus puntuaciones en las máquinas de 
los bares así lo certifican. 
No cabe duda tampoco de que tú, casualmente, 
eres su aclamado capitán, alias Dedos de Pantera 
O 'Sullivan y que tu batería láser se encuentra 
justo enfrente de la nave madre enemiga, donde 
el ataque será más despiadado y virulento. 
Si Laserbase fuera un juego en lugar de la más 
cruda realidad, diríamos que hacen falta unos 
ojos de lince y una mano de hierro para acertar a 
los esquivos y erráticos alienígenas, los cuales, 
sabiendo que se juegan su sucia vida, no están 
dispuestos a dejarse abatir por nada del mundo 
(del suyo, claro). 
Si se tratara de un juego, añadiríamos que está 
muy bien hecho, y que tanto de su parte Basic 
como de la de Código Máquina se puede 
aprender mucho. 
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1270 REM mas rutinas del alien 
1280 REM ********************* 
1290 BORDER 6: MOVER -16,0:FOR b=l T 
O 2 
1300 PLOTR O,O,b 
1310 BORDER 9+b:FOR d=l TO 2:GOSUB 
110:REM Explosion 
1320 NEXT d:NEXT b:PLOTR O,O,b 
1330 IF xp<300 THEN c=6 ELSE c=15 
1340 IF c=6 TREN 1=0 ELSE r=O 
1350 LOCA TE c,22:PEN 3:PAPER O:PRIN 
T CHR$(229); 
1360 pow=pow-50:la=la-1 
1370 GOTO 1190 
1380 REM ************ 
1390 REM muerte alien 
1400 REM ************ 
1410 GOSUB 170:REM Score 
1420 SOUND 132,600,60,4,1,0,12 
1430 nf=l:CALL &A068,sx,sy,nf,x 
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1440 PLOT -1,0,7:MOVE xp,yp:TAG:PRI 
NT CHR$(n+si)j :TAGOFF 
1450 PRINT CHR$(23)jCHR$(1)j :CALL & 
A16A 
1460 0.1=0.1-1: IF a1<1 THEN GOTO 3010 
ELSE 920 
1470 REM ******************* 
1480 REM Redefine caracteres 
1490 REM ******************* 
1500 READ zt: IF zt=999 THEN RETURN 
EL SE READ b,c,d,e,f,g,h.i:SYMBOL zt 
,b,c.d,e,f,g,h.i:GOTO 1500 
1510 REM O 
1520 DATA 48,254,130,130,130,134,13 
4,134,254 
1530 REM 1 
1540 DATA 49,8,8,8,24,24.24,24.24 
1550 REM 2 
1560 DATA 50,254,130,2.254,192,192, 
192.254 . 
1570 REM 3 
1580 DATA 51.252.132,4,254,6,6,134, 
254 
1590 REM 4 
1600 DATA 52,252,132,132,132.132.25 
4,12,12 
1610 REM 5 
1620 DATA 53,254.128.128,254,6,6,13 
4,254 
1630 REM 6 
1640 DATA 54,254,130,128.254,134,13 
4,134,254 
1650 REM 7 
1660 DATA 55,254.2,2,6,6,6,6,6 
1670 REM 8 
1680 DATA 56,124,68.68,254,134,134. 
134,254 
1690 REM 9 
1700 DATA 57,254,130,130,130,254.6, 
6,6 
1710 REM A 
1720 DATA 65,124,68,68,254,194.194. 
194,194 
1730 REM F 
1740 DATA 70,254,128.128,252,192.19 
2,192.192 
1750 REM G 
1760 DATA 71.254,130,128,198,194,19 
4,194.254 
1770 REM H 
1780 DATA 72,130,130,130,254,198,19 
8,198.198 
1790 REM N 
1800 DATA 78,254,130,130,194,194,19 
4,194,194 
1810 REM O 
1820 DATA 79,254,134,134,130,130,13 
0,130,254 
1830 REM P 
1840 DATA 80.254,130.130,254,192.19 
2,192,192 
1850 REM S 
1860 DATA 83.254,130,128,254,6.6,13 
4,254 
1870 REM a 
1880 DATA 97,0.0.248.136.8,248,200, 
248 
1890 REM C 
1900 DATA 99.0,0.248.136,192.192,20 
0,248 
1910 REM e 


1920 DATA 101.0.0.248.136.248.192.2 
00,248 
1930 REM h 
1940 DATA 104.0,0,128.248.136,200,2 
00,200 
1950 REM i 
1960 DATA 105.0,32.0,32,32.48,48,48 
1970 REM m 
1980 DATA 109.0,0.254,146,218,218,2 
18,218 
1990 REM n 
2000 DATA 110,0,0.248,136,200.200.2 
00.200 
2010 REM o 
2020 DATA 111,0,0,248,136.200,200,2 
00,248 
2030 REM P 
2040 DATA 112,0.0.248,136,200,248.1 
92,192 
2050 REM r 
2060 DATA 114,0.0,248,128.192,192,1 
92,192 
2070 REM t 
2080 DATA 116.0,32.112.32.48,48,48, 
48 
2090 REM v 
2100 DATA 118,0.0.200,200,200,72,80 
,112 
2110 REM w 
2120 DATA 119.0.0,146,146,218,218.2 
18,254 
2130 REM laser destruido 
2140 DATA 229,0,0,0,44,60,228,126,2 
03 
2150 
2160 
2170 
2180 
34 
2190 REM gran a1ien 1 
2200 DATA 242,102,129.189,231,231,1 
89.129,102 
2210 REM mini-a1ien 2 
2220 DATA 243,0,0,0,24,60,66.0,0 
2230 REM a1ien 2 
2240 DATA 244,0,0,36,24,60,90,0,0 
2250 REM gran a1ien 2 
2260 DATA 245,0,66.36,60,36,90,129, 
129 
2270 REM exp1osion 
2280 DATA 246,0,42,126,63,126,63.22 
9,0 
2290 REM exp1osion 
2300 DATA 247,124,126,130,65,130,65 
,88,60 
2310 REM strel1a 
2320 DATA 248,0,0.0.16,0,0,0,0,999 
2330 CLS:MODE l:PEN 3 
2340 PRINT" * 
*** *** 
2350 PRINT" 
* :* * 
2360 PRINT" 
** **:* 
2370 PRINT" 
* *:* 
2380 PRINT" 
*** * * 
2390 PRINT:PRINT:PRINT 
2400 PRINT" *** 
x *** 


REM mini-a1ien 1 
DATA 240,0,0,20,42,62.42,20,0 
REM a1ien 1 
DATA 241,0,34,65,93,119,93,65, 


*** 


*** 


* 


* * 


* 


* 


*** 


*** 


* 


* * 


* 


*** 


* * 


*** 


*** 


** 
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2410 PRINT" * * * * * 
* 
2420 PRINT" **** *** ** 
* ** 
2430 PRINT" * * * * 
* * 
2440 PRINr' **** * * ** 
* *** 
2450 PEN 2: LOCA TE 20, 15: PRINT"BY": L 
OCATE 12, 17:PRINT "M. K & P.A Leybou 
rne":LOCATE 19, 19: PRINT" 1987" 
2460 PEN 1: LOCATE 8. 24: PRINT"Prepar 
ado para la batalla " 
2470 GOSUB 3120:FOR 0.=1 TO 25:PRINT 
:FOR b=l TO 100:NEXT:NEXT:RETURN 
2480 PEN 3:CLS:PRINT TAB(15)"LASER 
BASE":PRINT TAB(15) STRING$(10,CHR$ 
(95»:PRINT 
2490 PEN l:LOCATE l,3:PRINT CHR$<20 
) 
2500 PRINT "El final de la guerra g 
alactica se esta "; 
2510 PRINT "aproximando. Todos los p 
lanetas mayores del Sistema estan 
destruidos, excepto "; 
2520 PRINT "la Tierra y su Luna." 
2530 PRINT:PRINT "Tu controlas la t 
orreta laser de la Luna, y debes de 
struir cuantos"; 
2540 PRINT "alienigenas puedas.":PR 
INT 
2550 PRINT:PRINT "La puntuacion del 
juego es como sigue:-" 
2560 FOR b=243 TO 246 STEP 3 
2570 PRINT:PRINT:PRINT TAB(8); :FOR 
d=l TO 3 
2580 PEN 3:PRINT CHR$(b-d); :PEN l:P 
R 1 NT " ....";: PEN 2 
2590 IF b > 243 THEN PRINT 2*d;: IF 
d=2 THEN PRINT" "¡ : GOTO 2610 ELSE 2 
610 
2600 PRINT 5*d; 
2610 NEXT d,b:GOSUB 2850:REM Espera 
tecla 
2620 LOCA TE 1,3:PRINT CHR$(20):PEN 
1 
2630 PRINT "El ataque alienigena em 
erge del transporte, fuera del alca 
nde del laser." 
2640 PRINT "Cada oleada causa 10 at 
aques que hay que evitar antes de q 
ue:- u 
2650 PRINT 
2660 PRINT " A), Los aliens destruy 
an ambas torretas laser. 
2670 PRINT:PRINT " B). Se te acabe 
la energia.":PRINT 
2680 PRINT:PRINT"Usa Joystick o Tec 
lado. . . ." 
2690 PEN 3:PRINT TAB(10)") ";:PEN 1 
:PRINT "Mueve ";:PEN 2:PRINT 
" Dere. " 
2700 PEN 3: PRINT TAB(10)" < ";: PEN 1 
: PRINT "Mueve "; : PEN 2: PRINT 
" 1 zq. " 
2710 PEN 3:PRINT TAB(10)"A "; :PEN 1 
:PRINT "Mueve "; :PEN 2:PRINT 


"A." 


2720 PEN 3:PRINT TAB(10)"Z "; :PEN 1 
: PRINT "Mueve "; : PEN 2: PRINT 
"Aba. " 


-- 
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2730 PEN 3:PRINT TAB(6)"SPACE "; :PE 
N 2:PRINT TAB(23)" fuego" 
2740 PRINT:PRINT TAB(13)"Space o Fu 
ego":en=O:s=l 
2750 WHILE INKEY$( )'''': WEND 
2760 FOR 0.=1 TO 35:a$=INKEY$: IF 0.$< 
)"" THEN 2790 
2770 NEXT: IF s=1 THEN 2760 
2780 INK co,en MOD 27:en=en+l:GOTO 
2760 
2790 a$=UPPER$<a$) 
2800 IF 0.$=" " THEN 0.0.=31: bb=39: cc= 
71:dd=69:ee=47:s=0:RETURN:REM Tecla 
do 
2810 IF a$="N" THEN CALL O 
2820 IF a$="Z" THEN ee=77:GOTO 2840 
2830 IF a$="X" THEN ee=76:GOTO 2840 
ELSE GOTO 2750 
2840 0.0.=75: bb=74: cc=73:dd=72:s=0: RE 
TURN 
2850 PRINT:PRINT:PRINT TAB(10)"Puls 
a para continuar" 
2860 WHILE INKEY$O"":WEND:WHILE IN 
KEY$='''' : WEND: RETURN 
2870 REM ************* 
2880 REM fin del juego 
2
0 REM ************* 
2900 CLG:LOCATE 5,5:PEN 2:PAPER O 
2910 WHILE INKEY$ O"":WEND 
2920 PRINT" Game Over":PRINT 
2930 en=1:co=3: IF sc < hi THEN co=l 
: GOTO 2950 
2940 PEN 3:PRINT:PRINT" New Hi-Sc 
ore ";sc:hi=sc:GOTO 2960 
2950 PEN l:PRINT:PRINT " Hi-Scor 
e ";hi 
2960 PEN 6:PRINT:PRINT:PRINT " 
Otra vez? " 
2970 PEN 2:PRINT:PRINT:PRINT " Spac 
e o Fuego o N" 
2980 GOSUB 2750:CLG:REM Espera tecl 
a 
2990 t=O:sc=O:LOCATE 7, 24: PAPER 15: 
PRINT STRING$<3," ") 
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3000 GOTO 430 
3010 REM *************** 
3020 REM redibuja aliens 
3030 REM *************** 
3040 CLG:LOCATE 6,5:PEN 2:PAPER O:P 
RINT"Preparado! " 
3050 LOCATE 8,10:PRINT "Qtra 
3060 LOCATE 9, 15:PRINT "ola" 
3070 FOR a=l TO 2000:NEXT:CLG:t=t+1 
:sc=sc+t*50 
3080 GOSUB 200:al=10:GOTO 440 
3090 REM ************** 
3100 REM codigo maquina 
3110 REM ************** 
3120 RESTORE 3180 
3130 a=&AOOO:FOR b=3180 TO 3390 STE 
P 10:f=0:READ a$,d 
3140 FOR c=l TO LEN(a$) STEP 2:e=VA 
L("&"+MID$(a$,c,2»:f=f+e 
3150 POKE a,e:a=a+1:NEXT c: IF f<>d 
TREN 3170 
3160 NEXT b:RETURN 
3170 PRINT "Data error en linea"jb: 
PRINT:PRINT "Tecla GOTO 280 despue 
s de corregir el ERROR":STOP 
3180 DATA 3E07CDDEBBDD7E02B7F5200DE 
D5B4DA12A4FA1CDCOBBCD32AOCD3EAOOEOO 
F1200D3A4FA1FEE63006,4915 
3190 DATA OCFEBE30010C79324BA13A4AA 
1473A4BA180CDFCBBC9CD5BAOED534DA122 
4FA1F5CDCOBBF1B72801,5137 
3200 DATA AF324BA1DD7E00324AA1C9DD6 
E04DD6605DD5E06DD5607C93E04CDDEBBDD 
7E02B72803C386AOED5B,4865 
3210 DATA 46A12A48A1CDCOBBCD19BDCD8 
9AOODC4A0110C0021FAFFD5E5CDF9BB1118 
0021F8FFCDC3BBE1D1D5,6033 
3220 DATA CDF9BB11DOFF210000CDC3BBD 
1D5210600E5CDF9BBl11800210800CDC3BB 
E1D1CDF9BBC9CD5BAOED,5710 
3230 DATA 5346A12248A1CDCOBBC911FOF 


.. 
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FD5E1CDC3BB3E03CDDEBB11000021BOFFE5 
D5CDF9BB010606CD38BC,5608 
3240 DATA 010DODCD38BCD1D5215000CDC 
3BBD1E1CDF9BBC93E03CDDEBBCD5BAOD511 
F3FF192255A1D1211AOO,5310 
3250 DATA 192257A1CD23A1CD23A1C9214 
OOODD7E02B7280BE511AEOOCDCOBBCD5CA1 
E1DD7EOOB7C811CE01CD,4836 
3260 DATA COBBCD5CA1C90000000000000 
0000000000000000000000000000000ED5B 
57A12A55A1CD19BDCDF6,2772 
3270 DATA BBC93E04CDDEBB2A4DA111100 
019E52A4FA111F8FF19D1ED5351A12253Al 
3E01325BA13E023259A1,4240 
3280 DATA 3E10325AA101EBA1CDB9A13A5 
AA13D325AA120F43A59A13D3259A120E33A 
5BA13C325BA1FE2020D3,4403 
3290 DATA C90A035FOA03572A53A13A5BA 
1193D20FCE50A035FOA03572A51A13A5BAl 
193D20FCEBEIC5CDEABB,4059 
3300 DATA 21000011FFFFCDEDBBC1C9010 
001000200030001000200FDFFFFFFFCFF03 
000100FFFF0200FEFFOO,4143 
3310 DATA 0001000000FEFFFEFF0100FEF 
F0200020000000300FEFFFfFFFEFF0100FC 
FFFCFFFDFF,4587 
3320 DATA 0116012140A27E23E50BC5CD5 
ABBC1E179B020F2C9,2553 
3330 DATA lFOA020FODD68FD71F0304D68 
FD71F1104D68FD70F061F0205D60EODD720 
D60EOOD71F11050EODD7,3162 
3340 DATA 20D60EOOD71F09040EODD50EO 
CD420D50EODD41F10050EOOD61F0903D60E 
ODD720D60EOOD71F0905,2780 
3350 DATA OFODD50FOC8F8F8FOFODD41FO 
2060E06D70FOCD68FD70FODD60FOCOEOD20 
2020D58FD42020200F06.2887 
3360 DATA D50FOCOE06D68FD70F060EODD 
40FODOE001F0207D50FOC8F208F8F8F8F8F 
8F8F8F8F8F8F8F8F208F,3623 
3370 DATA OFODD40FOCOEODIFOA06D58FD 
40E001F0308D58FD41F08080F060EODD50E 
OCD40FOC8F8F8FOF06D5,2769 
3380 DATA OEODD40FOCOE001F1108D58FD 
41F08090FODD50FOC8FOFODOE012020200F 
OCOE008FOFODD40FOC1F,1984 
3390 DATA 090AD58F8F8FD40EOOOFOFIFO 
10101D41F1401D51F1416D61FOl16D71F04 
070E01E9
O'2563 
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Para que tus 
dedos no realieen 
cI trabajo duro, 
AMSTRAD 
Semanal lo hace 
por ti, Todos los 
listados que 
incluyan este 
logotipo se 
encuentran a tu 
disposición en un 
cassette mensual. 
solicítanoslo 
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RECIBE 
T. 
IMSTAINDEPEflDlEN11'AIAUSUAIIOSDEDID9IADOmAM5J1AD -,/ 1 


, 


. 


EN CASA 


Deseo suscribirme a la revista AMSTRAD SEMANAL por un año 
(50 números), al precio de 7.950 pts. Esta suscripción me da derecho 
a recibir, totalmente gratis, los dos últimos éxitos de Dinamic ARMY 
MOVES y GAME OVER (oferta válida sólo para España). 
Nombre Fecha de Nacimiento _ 
Apellidos 
Domicilio 
Localidad Provincia 
C. Postal Teléfono _ 
(Para ag
izar tu envio, es importante que indiques el código postal) 
Formas de pago 
O Talón bancario adjunto a nombre de Hobby Press, SA 
O Giro Postal a nombre de Hobby Press, SA, n? _ 
O Contra reembolso (supone 125 pts. más de gastos de envío y es 
válido sólo para España). 
O Tarjeta de crédito n? 0000 0000 0000 0000 
Visa O Master Card O American Express O 
Fecha de caducidad de la tarjeta 
Nombre del titular (si es distinto) 
(Si pago con la tarjeta de crédito, recibiré un número más de regalo). 
Fecha y firma 


(Si lo deseas puedes suscribirte por teléfono (91) 734 65 00) 


r. 
( 


SOLICITA NUMEROS ATRASADOS y CINTAS SERIE ORO 
O Sí, deseo recibir en mi domicilio los cintos que o 
continuación indico, 01 precio de 756 ptas. codo uno. Codo cinto lleva 
grabados los programas pubhcodos por AMSTRAD SEMANAL durante 
cuatro números consecutivos (1 01 4, 5 01 8, 9 01 12, etc.) 
Las cintos que deseo son: 
Números 0 1 Números 01 
Números 0 1 Números 01 
O Sí, deseo recibir en mi domicilio los siguientes números atrasados 
de AMSTRAD SEMANAL 01 precio de 190 ptas. codo uno _ 


Está agotado el número 4 
Nombre 
Apellidos 
Domicilio _ 
Localidad 
C. PostaL 


Fecho de nacimiento _ 


Provincia _ 
Teléfono _ 


Forma de pago: 
O Mediante talón bancario a nombre de Hobby Press, S,A. 
O Mediante giro postal a nombre de Hobb 
 rr¡sl' I S.A. n
 
O Mediante tarjeta de crédito n
 ITIIJ ITIIJ ITIIJ 
O Visa O Master Charge O American Express 
Fecho de caducidad de la ta
eta 
Fecha y firma 


en 


No se admiten solicitudes de cintas 
contra reembolso 
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Suscríbete hoy mismo a 
AMSTRAD y recibirás a 
vuelta de correo los dos 
mayores éxitos de 
Dinomic 
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Benefíciate de las ventaias. 
de la tarieta de crédito. 
Un número más, .Qratis 
en tu suscripción y la posibilida
 
de realizar el pago aplazado.- 
I 


ARMY MOVES 
(omo miembro del (uerpo 
de Operaciones Especioles, 
Dendhol ho sido odiestrado 
en vorios sistemos de 
I combote distintos, osí como 
en el monejo de todos los 
ormos, explosivos y 
técnicos de guerro en lo 
selvo. Ahora, tras lorgos 
años de entrenomiento, le 
ho lIegodo el momento de 
demostrar sus hobilidodes 
y otravesor, por tierro, 
mor y oire, los líneos 
enemigos. ¿lo conseguirá? 


GAME OVER 
los problemos de libertod 
existen hosto en los más 
lejonos goloxios. Si no, 
que se lo digon o los 
hobirontes del pionero 
Porshoco, quienes estón 
sufriendo en sus comes 
viscosos lo tiranío de lo 
princeso Gremio. 
Afortunodomente, Arkos, el 
mós hábil de todos los 
mego-terminotors, ho 
decidido ocobor con este 
juego; ofortunodomente 
pora nosotros, comienzo 
Gome Overo 
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Oferta válida sólo para España 
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Suscríbete hoy mismo o 
AMSTRAD y recibirós o 
vuelto de correo los dos 
- 
mayores éxitos de 
Dinomic 
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Benefíciate de las ventaias 
de la tarieta de crédito. 
Un número más, .Qratis 
en tu suscripción y la posibilida
 
de realizar el pago aplazado. 


ARMY MOVES 
(omo miembro del Cuerpo 
de Operociones Especioles, 
Dendhol ho sido odiestrodo 
en vorios sistemos de 
combote distintos, osí corno 
en el monejo de todos los 
ormos, explosivos y 
técnicos de guerro en lo 
selvo. Ahoro, tros lorgos 
oños de entrenomiento, le 
ho lIegodo el momento de 
demostror sus hobilidodes 
y otrovesor, por tierra, 
mor y oire, los líneas 
enemigos. ¿Lo conseguirá? 


GAME OVER 11 
Los problemos de libertod 
existen hosto en los más 
lejonos goloxios. Si no, 
que se lo digon o los 
hobifontes del ploneto 
Porshoco, quienes están 
sufñendo en sus comes 
viscosos lo tironío de lo 
princeso Gremio. 
Afortunodomente, Arkos, el 
más hábil de todos los 
mego-terminoto
, ha 
decidido ocobor con este 
juego; ofortunodomente 
poro nosotros, comienzo 
Gome Overo 
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. DISCO AMSTRAD 2.250 PTAS. 
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¡¡ LA 2. 3 PARTE DE 
"DRAGON'S lAIR"!! 


1 

 
. ) 


CONTINUACION QUE SUPERA Y MEJORA ENORMEMENTE A "DRAd'CN;S ", 
LAIR", EL JUEGO DE LAS MAQUINAS QUE SE CONVIRTIO EN LEYENDA. LA ! 
HUIDA DEL CASTILLO DE SINGE AÑADE AVENTURAS, ACCION Y EMOCION " 
A LA QUE FUE PRIMERA PARTE...; AFILA TU ESPADA Y TU CEREBRO. 
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DISTRIBUIDOR EXCLUSIVO PARA ESPAÑA: 
ERBE SOFTWARE. C/. STA. ENGRACIA, 17 - 28010 MADRID. TELEF. (91) 447 34 10 
D
LEGACION BARCELONA. C/. VILADOMAT, 114 - TELEF. (93) 253 55 60. 
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